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NO ES CASUALIDAD 



Editorial 

INCOHERENCIA 
INFORMATICA 

Estamos asistiendo a un verdadero festival de 
incoherencias. La prensa no especializada, 
especialmente los grandes periódicos y 
semanarios, son presa de una ñebre 
informativa informática que no resiste un 
análisis serio. Ya no hablemos de los artículos 
que abordan lo relacionado con los ordenadores 
personales, sino los que nos tocan muy 
directamente. 

Desde que nos abocamos a la edición de MSX 
EXTRA lo hicimos con la firme convicción de 
que nuestra tarea por compleja que fuese era la 
de informar, ser útiles y también esclarecer en 
lo posible el terrible confusionismo existente en 
el mercado. Un confusionismo que sólo beneficia 
a determinados fabricantes, nunca al usuario. 
Pero los grandes medios parecen asumir con 
bastante alegría la confusión y sus páginas día 
a día la alimentan. A título de ejemplo podemos 
señalar que hemos leído en una misma página 
que «el estándar MSX no ha conseguido 
desplazar a los otros sistemas» o que «la 
operación de marketing de los japoneses ha 
fracasado en su intento de imponer un sistema 
compatible para los home computers», al 
tiempo que en otra columna se afirmaba que «el 
éxito del estándar MSX hace vislumbrar que en 
poco tiempo su presencia en el mercado sea 
indiscutible». 

Indudablemente un análisis objetivo de la 
realidad con respecto a la situación de los MSX 
determina que el estándar ha alcanzado una 
buena parcela del mercado, pero que aún sigue 
luchando y compitiendo con ordenadores 
técnicamente inferiores y de menor fiituro. Esto 
se debe a que mientras los fabricantes de tales 
ordenadores han planteado sus ventas con un 
extraordinario apoyo publicitario, los 
fabricantes de MSX, con honrosas excepciones, 
han asumidola tarea de vender sus aparatos por 
inercia de marca, como si se tratase de un 
electrodoméstico más. Que el ordenador sea un 
electrodoméstico más en la casa es lógico, pero 
antes ha de crearse el clima necesario, educar al 
usuario y educar al vendedor sobre las 
propiedades, características y posibilidades 
futuras del estándar. 

Ante este panorama el esfuerzo de las revistas 
especializadas es más grande del que debería 
ser, puesto que debe embestir tanto contra los 
molinos de viento que constituyen la falta de 
apoyo institucional de la mayoría de los 
fabricantes, como desfacerlos entuertos 
confusionistas de la prensa no especializada, 
además de la falta de calidad de otras del sector. 
Para concluir, podemos afirmar que la 
evolución del estándar MSX en el mercado es 
lenta, pero segura y que su futuro no corre 
peligro alguno en la medida que los fabricantes 
adopten una actitud más seria en cuanto a la 
imagen del producto. 

MANHATTAN TRANSFER, SA 
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GRAFICOS EN COLOR Y 
SPRITBS 

Tengo un problema con 
los sprites. Al colocar un 
sprite en la pantalla siem- 
pre observo que la coorde- 
nada Y es un punto mayor 
de la que yo le di en la sen- 
tencia PUT SPRITE. Por 
ejemplo: si tecleo PUT 
SPRITE 0, (95,80) el sprite 
se coloca en las coordena- 
das (95,81). ¿Có- 
mo puedo evitarlo sin te- 
ner que poner en la coorde- 
nada Y un punto menos del 
que deseo? 

¿Es posible colorear 3 
puntos de distinto color en 
un mismo byte de la 
VRAM? 

Roberto Molina 
Corbalan 
Callosa de Segara 

(ALICANTE) 




El primer problema que 
nos comentas es uno de los 
enigmas del MSX que toda- 
vía no hemos podido resol- 
ver. Debes saber que el len- 
guaje BASIC no es más que 
un programa en ensambla- 
dor como otro cualquiera, 
de una extrema compleji- 
dad, eso sí. Como todo pro- 
grama, puede tener erro- 
res ocultos debido a fallos 
del programador. Pero 
también puede ser debido a 
una mayor comodidad en 
las rutinas de cálculo de la 
posición del sprite. 

Supongo que, por las ca- 
racterísticas de este fenó- 
meno, debe tratarse de un 
error, bien del BASIC, bien 
del propio CHIP de panta- 
lla. Para evitarlo no hay 
otro remedio que, como tú 
bien dices, colocar en la 
coordenada Y del sprite un 
punto menos del que desea- 



algún 
me- 
dio para corregir este pro- 
blema agradeceríamos se 
pusiese en contacto con 
nosotros. 

A tu segunda pregunta, 
digamos que es totalmente 
imposible colocar tres 
puntos de diferente color 
en un mismo byte de la 
VBAM debido a la forma en 
que está concebida. En la 
TGP de la VRAM (tabla ge- 
neradora de los patrones) 
se almacena el diseño en 
binario de los dibujos de la 
pantalla en forma de unos 
y ceros. Sólo se pueden dis- 
tinguir por tanto dos colo- 
res, el correspondiente al 
cero y el correspondiente 
al uno. 

Cabe decir que los MSX 
de segunda generación ya 
solucionan este problema, 
ya que en sus SCREENs de 
máxima resolución se uti- 
liza un sistema diferente 
de codificación de los gráfi- 
cos. 



FORMULA 1 

He visto en vuestra re- 
vista número 23 el juego 
FORMULA 1, y me intere- 
saría comprarlo. ¿Podríais 
darme la dirección de don- 
de he de dirigirme? 

Montse Solía 
LERIDA 

El Juego FORMULA 1, 
que se comentó en la sec- 
ción BIT-BIT del número 
23 de nuestra revista, está 
distribuido por DROSOFT 
cuya dirección es la si- 
guiente: 
Fundadores, 3 
28028 MADRID 
Tels.:255 45 00/09 
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MAS VOCES MSX 



¿Se podrían añadir a un 
ordenador MSX mas voces 
polifónicas? 

Carlos González Nieves 
SANTA CRUZ 



El tema de la generación 
de sonido por ordenador es 
un tanto delicado. En reali- 
dad, los ordenadores MSX 
están capacitados para ge- 
nerar cualquier sonido, in- 
cluida la voz humana, 
como lo demuestran los 
numerosos programas que 
hacen uso de esta posibili- 
dad. El problema no es lo 
que se puede o no se puede 
hacer, sino la complejidad 
que conlleve la generación 
de un tipo u otro de sonido. 

Según las leyes de Fou- 
rier cualquier sonido pue- 
de ser obtenido como com- 
binación de ondulaciones 
simples; pero la obtención 
de ciertos sonidos trae con- 
sigo una avalancha de cál- 
culos que ponen en jaque a 
los más potentes ordena- 
dores personales. 

Lo que hacen los ordena- 
dores MSX es incorporar 
un chip especializado en la 
generación de sonido (sólo 
ciertos sonidos bastante 
simples ) que se encarga de 
la realización de todas es- 



niendo libre al procesador 
central. 

En vista de esto, la res- 
puesta es sí: puedes añadir 
tantas voces como quieras 
a tu MSX; pero con una 
condición. Debes ser un 
virtuoso en la programa- 
ción en ensamblador, y un 
verdadero experto en acús- 
tica. 

Como supongo que esta 
solución no será demasia- 
do cómoda de poner en 
práctica te recomiendo 
otra mucho más sencilla. 
Al igual que en los ordena- 
dores MSX hay incorpora- 
do un chip encargado de la 
generación de sonidos, 
puedes, por medio de un 
cartucho de ampliación, 
añade otro u otros chips 
generadores de sonido. 

Esta amphación de soni- 
do ya existe en el mercado, 
y forma parte del MUSIÓ 
MODULE de Philips, que in- 
cluye, en un solo cartucho 
un sintetizador polifónico 
de FM, interfaz MIDI para 
la conexión del ordenador 
a sistemas musicales, con- 
versor analógico digital 
para grabar sonidos del ex- 
terior para tratarlos (eco, 
efectos especiales,...) y un 
completo programa de 
control de todos estos peri- 
féricos. Su precio ronda las 
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MS-DOS y MSX-DOS 

He trabajado a nivel de 
BASE DE DATOS, HOJA DE 
CALCULO, WOI 
etc.; pero con mi aj 
no puedo puesto que no son 
compatibles los sistemas 
MS-DOS y MSX-DOS. ¿Hay 
algún sistema de acoplar 
mi ordenador al sistema 
MS-DOS? 

Ricardo Serrano Alba 
VIOO 

Los sistemas operativos 
MS-DOS y MSX-DOS son In- 
compatibles entre sí por 
varias razones. En primer 
lugar, los programas ( a ex- 
cepción de los MSX o PC 
compatibles) no pueden 
pasar de una máquina a 
otra en ningún caso. En el 
caso de los MSX los progra- 
mas funcionan; pero sólo 
entre máquinas MSX. 

La conversión de progra- 
mas de MS-DOS a MSX-DOS 
no es posible en principio. 
Esta conversión conlleva 
tener que realizar el pro- 
grama de nuevo. 

Si tienes interés en utili- 
zar los programas sobre 
MSX, te aconsejo que los 
adquieras en el formato 
MSX. Los programas de los 
que nos hablas están dis- 
ponibles para los MSX en 
formato de disco. Puedes 
consultar MSX CLUB espe- 
cial software para tener 
una guía completa de todos 
los programas de utilidad 
en disco para los MSX. 



MICROFONO 
PARABOLICO 



Una vez leída su revista 
número 21 de julio de 1986 
me dispongo a pedirles un 
pequeño favor. Quisiera sa- 
ber dónde encontrar el 
"micrófono parabólico" 
que ofrece la empresa SVI 
España. 

Jaime Carlos 
Hernández 
VTLLENA 

El micrófono parabólico 
del que nos hablas está a la 
venta en numerosas tien- 
das de informática y gran- 




des almacenes. Si no lo en- 
contrases por ese camino 
puedes escribir directa- 
mente a SVI España, cuya 
dirección es: 

CENTRAL: Avda. de la 
Constitución, 260. Tel.: 675 
75 99. Torrejón de Ardoz 
(MADRID). 

DELEGACION CATALUÑA: 
Avda. Pau Claris, 165, 3.°. 
Tel.: 334 00 00. 08037 
BARCELONA. 



PROBLEMAS CON 
BSAVE 

Tengo un SVI- 728 y me 
gustaría saber cómo gra- 
bar mis programas con el 
comando BSAVE. 

En vuestra revista nú- 
mero 23 dais la solución a 
cómo saber la dirección de 
comienzo y final de un pro- 
grama; pero a mí no me 
funciona. ¿Será un error 
interno, o es que en el SVI 
no funciona la variable 
TXTTAB? 

Daniel J. Martin 
Lambea 
ISLAS CANAULAS 

Los programas en BASIC 



BITS DE INFORMACION 



Damos cuenta a conti- 
nuación de uno de los erro- 
res más comunes en la 
transcripción de progra- 
mas en BASIC. 

Revisando algunos délos 
programas que nos envían 
los lectores porque no han 
funcionado nos damos 
cuenta, de que, con frecuen- 
cia los errores se deben a 
que se han tecleado dos li- 
neas unidas, es decir, sin 
pulsar RETURN entre 
ellas. 

Ocurre también, en cier- 
tas ocasiones, que, si una 
línea acaba exactamente 
en el último carácter de la 
pantalla, la línea se une a 
la situada inmediatamente 
a continuación. 

Todos estos errores, sin 
embargo, pueden ser solu- 
cionados utilizando co- 
rrectamente el programa 
del TEST DE LISTADOS. 

Si, aun utilizando el test 
de listados no encon traseis 
el error haced lo siguiente. 
Eliminad del programa las 



pueden ser grabados con el 
comando BSAVE, y en eso 
se basan algunas de las 
protecciones de Juegos co- 
merciales. El sistema para 
grabar un programa en 
BASIC como secuencia de 
bytes no es sencillo, ya que 




líneas conñíctívas, la ante- 
rior a ellas y la posterior, y 
volvedlas a teclear a conti- 
nuación. 

Esperamos que con esto 
se solucionen algunos de 
los problemas que nos ve- 
nís comentando. 

Queremos repetir, ya que 
lo hemos comentado en 
otras ocasiones, que nos es 
imposible responder per- 
sonalmente a todas las du- 
das de los lectores. Pode- 
mos responder a través de 
esta sección; pero no a to- 
das las cartas. 

Recibimos diariamente 
docenas de cartas. Leerlas 
es fácil, pero en la mayoría 
incluís listados de gran 
longitud que nos es imposi- 
ble revisar. Sentimos mu- 
cho no poder ayudaros de 
una forma más personal. 

También queremos re- 
calcar que se trata de un 
problema de tiempo. No es 
necesario que nos enviéis 
sellos con vuestras cartas. 



no basta con grabar el pro- 
grama. Hay que grabar 
también los punteros y va- 
riables in ternas del BASIC. 

Conseguir esto no es, en 
absoluto, complicado; pero 
para realizar la grabación 
necesitas realizar un pe- 
queño cargador en ensam- 
blador que actualice todas 
las variables internas del 
BASIC. 

Es por esta razón por la 
que, aunque la variable 
TXTTAB funcione correc- 
tamente no puedas grabar 
tus juegos en BASIC con el 
comando BSAVE. 

Para grabar programas 
en ensamblador necesitas 
otros procedimientos para 
conseguir las direcciones 
de inicio y final. Estas di- 
recciones son muy fáciles 
de obtener si el programa 
ha sido realizado por ti; 
pero en otro caso precisan 
de malabarismos especia- 
les, diferentes para cada 
tipo de programa. 
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MEJORARLOS 
PROGRAMAS 

En primer lugar me gus- 
taría saber cómo puedo 
evitar que me salga en pan- 
talla el mensaje "? REDO 
FROM START" cuando en 
un INPUT con variable nu- 
mérica introduzco un dato 
alfanumérico por error, ya 
que estropea toda la com- 
posición de la pantalla 

En segundo lugar me 
gustaría que incluyerais 
algún artículo sobre los fi- 
cheros directos. ¿Se pue- 
den utilizar en estos fiche- 
ros variables con subíndi- 
ce? ¿Cómo? 

En tercer lugar, cuando 
dibujo gráficos en SCREEN 
2, en muchas ocasiones se 
mezclan los colores cuan- 
do dibujo líneas cerca de 
otras. ¿A qué es debido? 
Fermín Pérez Perla 



CVALEWCIA) 

Para evitar que aparezca 
en pantalla el mensaje de 
REDO FROM START al en- 
trar datos alfanumórlcos 
en un INPUT numérico 
sólo cabe una solución: no 
hacer INPÜTs numéricos. 
Estos pueden ser sustitui- 
dos por INPUT alfanuméri- 
cos y por la función VAL. 
Por ejemplo: 

INPUT A puede sustituir- 
se por 

INPUT A$:A=VAL(A$) 
pero la única solución defi- 
nitiva a los problemas de 
los INPUT es la utilización 
de rutinas de entrada de 
datos, como comentába- 
mos en el especial Navidad 
de nuestra revista. 

La respuesta a tu segun- 
da pregunta es sí. Se pue- 
den utilizar variables con 
subíndice en los ñcheros 
directos; pero explicar 
todo el proceso a seguir se- 
ría demasiado extenso 
como para incluirse en 
esta sección. No obstante, 
te adelanto que ya estamos 
trabajando en un artículo 
sobre el tema que aparece- 
rá en breve. 

Por último, el motivo del 
"emborrachamiento" de 
los colores (así lo llama- 
mos en el argot informáti- 
co) es un problema común 
a la mayoría de ordenado- 



res domésticos. El almace- 
namiento de gráficos en 
color precisa de grandes 
cantidades de memoria y 
de tiempo de proceso. Los 
diseñadores de sistemas 
informáticos han utilizado 
en la mayoría de ordenado- 
res domésticos un proceso 
consistente en dar a varios 
puntos un sólo código de 
color. En los MSX cada 8 
puntos horizontales pue- 
den tener sólo 2 colores di- 
ferentes. Una resolución 
muy buena si la compara- 
mos con los SPECTRUM 
que sólo admiten dos colo- 
res cada 64 puntos. El evi- 
tar este emborrachamien- 
to es una de las habilidades 
que debe dominar todo pro- 
gramador de gráficos, evi- 
tando que dos líneas de di- 
ferentes colores se crucen 
en un mismo grupo de 8 
puntos horizontales. 



AMPLIACION AL 
PROGRAMA 
BARQUITOS 

Angel de Gracia Gar- 
cía, autor del programa 
barquitos aparecido en el 
número 23 de nuestra re- 
vista, nos escribe para ha- 
cer notar que cuando la 
persona ha colocado sus 
barcos en las filas o colum- 
nas de los extremos del 
cuadro, y dependiendo de 
cual sea el primer cuadro 
del barco que sea tocado se 



outofrange". 

Para evitar que se pro- 
duzca este error hay que 
insertar en el programa 
las siguientes líneas: 
2685 IF C=0 THEN2700 
2696 IFC=9 THEN 2705 
2705 IF C= THEN 271 5 



Poseo un ordenador 
MSX de la primera genera- 
ción con una unidad de dis- 
co MITSUBISHI. Un amigo 
-programador profesio- 
nal- me ha dicho que desde 
el MSX DOS (que es similar 
al MS DOS con el que él tra- 
baja) se pueden crear ar- 
chivos de proceso por lo- 
tes, e incluso me dijo como 
hacerlo: 



Output 



COPY CON: nombre, bat 
Cuando lo introduzco, 
me dice «File cannot be co- 
pied into itself». ¿Es posi- 
ble crear un archivo de 
proceso por lotes en MSX 
DOS? 

Alvaro González 
C Santander) 

Efectivamente, es posi- 
ble crear un archivo de 
proceso por lotes (o fiche- 
ro batch) desde el MSX 
DOS. Lo único que ocurre es 
que -aún siendo similar al 
MS DOS- la sintaxis de la 
instrucción varía un poco. 
Para crear un fichero 
batch, debes teclear lo si- 
guiente: 

COPY CON nombre, bat 

Es decir, la misma ins- 
trucción pero sin los dos 
puntos detrás de bat. 

Ah, para salir del archi- 
vo una vez finalizado debes 
pulsar CTRL Z. 



AJEDREZ 

Me gustaría saber si hay 
algún juego de ajedrez, en 
cinta o cartucho, su precio 
aproximado y cómo lo pue- 
do conseguir. 

Javier Rodríguez 
García 



Según los informes que 
han llegado a nosotros, que 
se plasman en el especial 
soñware, conteniendo el 
listado de todo el soñware 
comercializado en España, 
existen al menos tres pro- 
gramas de ajedrez en el 
mercado: ULTRA CHESS, 
comercializado en cassette 
por ERBE Soñ y con un 
precio aproximado de 
2.500 Ptas. CHESS de Sony, 
en formato cartucho y con 
un precio de unas 4.800 
Ptas. y AJEDREZ de Toshi- 
ba, en formato cassette y 
con un precio de unas 
2.500 Ptas. 

Podrás localizarlos fácil- 
mente en algún comercio 
especializado en informá- 
tica; pero en caso de no ha- 
llarlos puedes dirigirte di- 
rectamente a las empresas 
que los comercializan, cu- 
yas direcciones aparecen 
en el número especial soñ- 
ware de nuestra revista. 




CON GARANTIA 

't'lANHATlANT 



V AM P LRE . Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un juego terrorífica- 
menteentfetónido para que lo pases de míe- 



POR JOAQUIN LOPEZ 



CON GARANTIA 



HARD CCPY. Para copiar pantallas. Tres 
formatos de coplas, simulación por blanco y 
negro, copla sprites, redeflnlc. de colores, 
compatible con todas las impresoras ma- 
tricPVP. 2.800 Pts. 
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ISTVElXr msxclub 



KRYPION 



JÉ 



KRYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad, ün juego cuya popularidad es cada 
vez más | 
PVP.500 Ptas 



El secreto de la 



QUINIELAS 



ON GARANTIA 



U-BOOT. Sensacional juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP. 700 Ptas. 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




SNAKE. Entretenido y muy divertido Juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP 600 Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete si 
puedes! PVP. 700 Ptas. 



STAR RUNNER. Conviértete en el audaz 
piloto Interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad. PVP. 1.000 pts. 



FLOPPY, El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarlo PVP 1000 Ptas 



CON GARANTIA 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su misión Diez niveles 
de dificultad. PVP 1000 pts. 



Si ojúercs recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 



Nombre y apellidos: 

Dirección: 

Población: 

□ KRYPT0N Ptas. 500- 

□ UBOOT Ptas. 700- 

□ QUINIELAS Ptas. 700- 

□ HARDCOPY PtasJWO- 











CP 



Prov. 

□ SNAKE Ptas. 600,- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ STARRUNNER Ptas. 1.000- 



[Gastos 



de envió certificado por cada cassette 



Ptas. 70,- Remito talón bancario de Ptas. 
— — — — — 



Tel.: 

□ FLOPPY PVP. 1.000 Ptas. 

□ MAD FOX PVP. 1.000 Ptas. 

□ VAMPIRO PVP. 800 Ptas 

a la orden de Manhattan Transfer, SA 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 

IMPORTANTE: Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 

Para evitar demoras en la entrega es imprescindible indicar nuestro nuevo código postal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A NUESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



LA SOLUCION 



- que los pone a la altura de ordenadores de precio muy superior. El ordenador HB-700S de 
Sony incorpora por primera vez un paquete integrado de gestión controlado 

por RATON. 
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s de todos conocida la división de la informática en dos sectores: el hard- 
ware (ordenador y otros componentes físicos de nuestro equipo) y el 
software o soporte lógico, compuesto por los programas que utilizamos 
con nuestro ordenador. 

La razón de que el software sea fundamental para el usuario de ordenadores 
es que el ordenador, al encenderlo, no es capaz de hacer prácticamente nada. 
De este modo, un ordenador sin programas es como una bicicleta sin ruedas: 
un cacharro que no sirve para nada. Es tan o más importante que acertar en la 
compra de un ordenador acertar en la adquisición del software que vamos a 
utilizar con él. De muy poco nos servirá un ordenador muy potente si 
los programas no sacan partido a sus posibilidades. 

Esta era la queja de muchos usuarios de MSX. Los ordenadores 
MSX no contaban con suficientes programas de gestión como para 
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i en este campo, 
i, y existen, no obstante programas de una alta calidad 
dentro de este campo; pero hasta ahora no han sido más 
que programas aislados. 

HiBrid rompe con este esquema, implantando en los 
MSX de segunda generación un paquete integrado de 
gestión, es decir, no sólo un programa, sino un conjunto 
de programas interrelacionados que permiten controlar 
todas las actividades inherentes a una pequeña gestión. 

HiBrid: Descripción del paquete 

El paquete HiBrid está dividido en cuatro secciones: 
• Hi-text: Potente procesador de textos en 80 colum- 
nas que supera ampliamente lo que esperábamos de los 



El uso de ventanas gráficas facilita enormemente todas las opciones 
del sistema operativo. 



Cada una de las funciones posibles cuenta con su propia representa- 
ción gráfica. 
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MSX en este tipo de programas. Este artí- 
culo, por ejemplo, ha sido realizado con 
el programa Hi-text por su facilidad de 
manejo y la comodidad que esto com- 
porta. 

• Hi-base: Programa de Base de Da- 
tos, que nos permite almacenar cual- 
quier tipo de ficheros, definidos según 
nuestras propias necesidades. 

• Hi-calc: Hoja de cálculo (también 
llamada hoja electrónica), que permite 
la realización de previsiones, presu- 
puestos y simulaciones con gran canti- 
dad de cálculos de una forma muy rápi- 
da y sencilla. Hoy en día este tipo de 
programas son indispensables en ban- 
cos, asesorías, etc. 

• Hi-graph: Programa de gráficos de 
gestión que permite la realización de 
gráficos con los resultados obtenidos 
con cualquiera de los otros tres progra- 
mas. Entre sus muchas opciones desta- 
ca la realización de gráficas tridimensio- 
nales que permiten la comparación de 
varios datos, ya que se representan si- 
multáneamente en la pantalla. 

Vamos a comentar ahora las particu- 
laridades del paquete como tal. 

Al conectar el ordenador, en lugar del 
sistema de disco MSX-DOS, como sería 
habitual, se carga en memoria el siste- 
ma operativo controlado por ratón. Este 
tipo de sistemas operativos sólo son ac- 
cesibles a los usuarios de máquinas de 
elevada potencia, como son los Mackin- 
tosh de Apple, los Amiga de Commodo- 
re, o los IBM-PC y compatibles que so- 
porten gráficos en color, mediante el sis- 
tema GEM de control de ficheros por 
iconos. 

El ratón es un pequeño artilugio (del 
tamaño justo para que sea cómodo en la 
mano) que, conectado al ordenador, 
nos permite desplazar el cursor por la 
pantalla. Si desplazamos el ratón hacia 



la derecha, el cursor lo seguirá hacia la 
derecha, y lo mismo si nos movemos en 
cualquier otra dirección. Gracias a los 
dos pulsadores que lleva incorporados 
resulta muy fácil escoger una opción de 
las que aparecen en la pantalla. 

El sistema operativo controlado por 
ratón nos dibuja en pantalla todas las 
opciones de que disponemos, de modo 
que es muy fácil escoger la que nos inte- 
resa o incluso combinarlas entre ellas. 

Además, el sistema operativo contro- 
lado por ratón, incorpora un programa 
de calculadora, un reloj y una agenda 
controlados también con el ratón. Estas 
tres opciones pueden llamarse en cual- 
quier momento, incluso cuando esta- 
mos trabajando con el procesador de 
textos o cualquier otro de los programas 
del paquete. 

Todo el proceso se controla mediante 
ventanas, que se superponen unas a 
otras, y que podemos ampliar, reducir o 
desplazar por la pantalla a nuestro anto- 
jo para que el ambiente de trabajo sea el 
más cómodo a nuestra actividad. 

Hi-text: El tratamiento de textos 

Hi-text es el primero de los programas 
que componen el paquete, y a nuestro pa- 
recer, el más potente y cómodo de los cua- 
tro. Incorpora opciones muy avanzadas 
que se pueden obtener con la sola pre- 
sión de uno de los pulsadores del ratón. 

La pantalla de trabajo aparece dividi- 
da en tres zonas: la zona superior (de 
una línea) es la reservada a mensajes 
del sistema (nombres de fichero, tipo de 
letra que estamos utilizando, modo de 
inserción y número de página, línea y 
columna); la segunda línea forma el 
menú de comandos. En ella aparecen 
los títulos de los diferentes menús a los 



que podemos acceder. Sólo tenemos 
que desplazarnos con el ratón hasta el 
menú deseado y éste aparecerá ante 
nuestros ojos para que escojamos la op- 
ción que deeemos. 

Por último, la zona de trabajo es aque- 
lla en la que aparecen los textos que es- 
tamos editando. 

En la zona de menús aparecen opcio- 
nes realmente interesantes. Podemos 
llevar un control total del disco, y pode- 
mos incluso fusionar archivos. Pode- 
mos trabajar con bloques de texto, co- 
piarlos, moverlos, borrarlos, grabarlos y 
leerlos del disco y cambiar los tipos de 
letra del bloque, etc. 

Podemos llevar un control total de los 
márgenes, a izquierda y derecha, for- 
matear la página horizontal y vertical- 
mente, insertar y eliminar tabuladores. 

Existen también opciones de búsque- 
da y sustitución de palabras y bloques, 
opciones de movimiento rápido dentro 
del texto, de cambio de los tipos de letra, 
de subrayado, negrita, y letra de alta ca- 
lidad. Además en todos los programas 
del paquete podemos redefinir las teclas 
de función. 

Todas estas opciones, añadidas al 
uso del ratón, hacen de este programa 
el mejor en su género que hemos visto 
en los MSX. 

Hi-base: La base de datos 

Hi-base es un programa de base de 
datos que permite realizar cualquier tipo 
de ficheros según formatos definidos 
por nosotros mismos. 

Lo primero que debemos hacer para 
generar una base de datos es definir el 
formato que deseamos que tengan las 
fichas, es decir, los datos que queremos 
que contenga cada ficha. 



Hi-text resulta ser uno de los mejores programas de tratamiento de tex- Con Hi-base podemos definir los ficheros según nuestras necesidades 
tos que hemos visto hasta ahora. personales. 
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Acto seguido debemos insertar los 
datos de cada ficha. Una vez que hemos 
entrado todos los datos, ya hemos cons- 
truido la base de datos. Comentaremos 
ahora las diferentes operaciones que 
podemos realizar con la base de datos. 

Podemos, evidentemente, añadir 
nuevas fichas, eliminar fichas ya exis- 
tentes, modificar fichas, etc. Podemos 
incluso variar el formato de las fichas sin 
tener que volver a construir la base de 
datos, opción ésta muy útil y que no so- 
portan otras bases de datos MSX. 

Pero lo interesante de una base de 
datos es poder obtener los datos en ella 
almacenados de una forma rápida y efi- 
caz. La rapidez se consigue gracias al 
uso de la unidad de disco incorporada al 
ordenador HB-F700 S de Sony, y la efi- 
cacia se consigue con las numerosas 
opciones de búsqueda y ordenación de 
los datos, por criterios de hasta 4 cam- 
pos simultáneos. Además podemos or- 
denar los campos como deseemos para 
lograr formatos de etiquetas o fichas, o 
cartas, o cualquier otro formato que ne- 
cesitemos. 

Las opciones de listado incluyen lista- 
dos selectivos, listados generales, y vol- 
cado en impresora de todas las fichas 
que aparezcan en pantalla. 

Al igual que con Hi-text podemos rea- 
lizar toda clase de operaciones con el 
disco. 

Una opción especial graba los fiche- 
ros de datos en formato ASCII, con lo 
que pueden trasladarse a cualquier otro 
programa del paquete, o incluso a pro- 
gramas diversos que acepten la confi- 
guración ASCII. 

Aunque no deja de ser un programa 
interesante, no alcanza la calidad que 
tiene el procesador de textos, ya que al- 
gunas opciones pueden resultar bastan- 
te laboriosas de definir. Por ejemplo, la 
impresión de etiquetas. 




Las hojas electrónicas resultan indispensa- 
bles para aquellos que trabajan con muchos 
datos numéricos. 

Hi-calc: La hoja electrónica 

Las hojas de cálculo son los progra- 
mas en que más se aprecian las venta- 
jas de utilizar los ordenadores. Este tipo 
de programas permiten la realización de 
complicadas operaciones y la visualiza- 



ción de los resultados de una manera 
cómoda. 

En realidad una hoja electrónica es un 
conjunto de casillas, 6630 en el caso de 
Hi-calc (26x255) en las que podemos 
colocar indistintamente textos, datos, o 
fórmulas. 

La razón de ser de las hojas de cálcu- 
lo es el poder incluir fórmulas en las ca- 
sillas, de modo que cada casilla pueda 
estar relacionada con todas las demás. 

Supongamos el siguiente ejemplo: un 
fabricante de ordenadores debe realizar 
los presupuestos de su nuevo modelo 
para poder fijar el precio de venta al pú- 
blico; pero tiene varios problemas. Una 
parte del ordenador se importa del Ja- 
pón, por lo que su precio -depende del 



mato de presentación de los resultados, 
copia de bloques, etc. 

Aun siendo el programa más potente 
en este campo para los MSX, existe una 
gran diferencia entre este programa y 
los programas existentes en ordenado- 
res de mayor precio (Lotus 1 ,2,3, Multi- 
plán, Visicalc, etc.). 

' Un grave inconveniente de este pro- 
grama de hoja de cálculo es que no he- 
mos conseguido realizar una copia inte- 
ligente, es decir, que el ordenador cons- 
truya fórmulas individuales para cada 
casilla a partir de una fórmula general. 

Destaca, sin embargo, la gran canti- 
dad de operadores matemáticos que 
podemos incluir en las fórmulas de las 
casillas. 




Hi-graph permite la representación gráfica de los resultados del resto de programas del 
paquete. 



cambio del Yen, y el nivel de producción 
dependerá del interés de los créditos de 
cierta entidad bancaria. 

Con este amasijo de datos y condicio- 
nes (los casos reales son decenas de 
veces más complicados que éste) el nú- 
mero de cálculos necesarios para averi- 
guar el precio según las fluctuaciones 
del Yen y de los intereses bancarios es 
enorme y se precisarán muchas horas 
junto a una calculadora para obtener los 
resultados esperados. Con una hoja 
electrónica sólo debemos poner en 
cada casilla los datos correspondientes 
(cambio del Yen, interés en este mo- 
mento, etc.) y el ordenador da el resulta- 
do instantáneamente. 

El proceso de definición de la hoja 
electrónica es sencillo, y rápido si el pro- 
ceso a seguir se tiene claro. 

Hi-calc incorpora las opciones habi- 
tuales a todas las hojas de cálculo: co- 
piar filas, mover filas, borrar filas (ídem 
con columnas), insertar todo tipo de fór- 
mulas, texto y datos, definición del for- 



Hi-graph: El paquete gráfico 



Hi-graph es un programa de repre- 
sentación gráfica de datos. El programa 
es capaz de recibir datos de cualquiera 
de los programas del paquete (o incluso 
de otros programas que sigan la norma 
ASCII) y representarlos gráficamente en 
el formato que más se ajuste a nuestros 
deseos. 

Con Hi-graph podemos realizar gráfi- 
cas de líneas, de barras y de tartas en 
dos dimensiones; pero también pode- 
mos realizar tartas y diagramas de ba- 
rras en tres dimensiones. Esta última 
opción resulta sumamente interesante, 
ya que nos permite visualizar en un solo 
gráfico una gran cantidad de datos. 

Podemos definir los rangos (valores 
mínimos y máximos) de los dibujos, cal- 
culándose de forma automática las es- 
calas correspondientes. 

Una vez realizado el gráfico corres- 
pondiente podemos insertar todo tipo de 
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y líneas para conseguir que el 
gráfico sea lo más clarificador posible. 
La realización de este programa, al igual 
que Hi-text, es enteramente comparable 
a la de programas existentes en ordena- 
dores tipo PC. 



HiBrid, en definitiva, es un conjunto de 
programas controlados con ratón que 



constituyen, sin duda, el paquete de 
software más potente existente para los 
MSX. 

En particular hemos visto mejores ba- 
ses de datos (más prácticas aunque con 
menos opciones); pero como conjunto, 
ningún otro paquete, o conjunto de pro- 
gramas independientes tiene el nivel al- 
canzado por este paquete. 

Recomendamos especialmente el 
procesador de textos y el programa de 
gráficos, que han demostrado amplia- 



mente su excelente calidad. La base de 
datos y la hoja electrónica no dejan de 
ser, por ello, programas muy completos 
e interesantes para cualquier aplicación 
profesional. 

Por último, una característica que 
puede decidir a más de uno es la utiliza- 
ción del ratón, y la comodidad que ello 
significa. 

. Como ya hemos dicho, este programa 
se incluye en el precio de venta del orde- 
nador MSX-2 Sony HB-700S. 



NUMEROS ATRASADOS • NUMEROS ATRASADOS 
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MSX 2." Edición 

H.°* 1,2,3,4 - 450 PTAS. 



MSX 2. a Edición 

N.°' 5,6,7.8 - 475 PTAS. 



MSX9 150 PTAS. 
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MSX10 150 PTAS. 



MSX 11 150 PTAS. 



MSX 12. 13 300 PTAS. 




msm 



Í5MIT. 



14 160 PTAS. 



MSX15 175 PTAS. 



MSX16 175 PTAS. 



MSX17175 PTAS. 




MSX18 175 PTAS. MSX1 9.20 350 PTAS. 
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MSX21 175 PTAS. MSX CODIGO MSX22 175 PTAS. 

MAQUINA - 275-PTAJ^ 
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MSX23 175 PTAS. 



MSX 24 175 PTAS. 



MSX25.26 350 PTAS. 



¡LA 1 . a REVISTA DE MSX DE ESPAÑA! 

PARA QUE NO TE QUEDES CON LA COLECCION INCOMPLETA SOLO TIENES QUE ENVIAR HOY 
MISMO EL BOLETIN DE PEDIDO CON TUS DATOS PERSONALES A «SUPER JUEGOS EXTRA MSX» 

PCIONES C/. Roca i Batlle, 10-12, 08023 Barcelona. 




Deseo recibir los números 



de SUPERJUEGOS EXTRA MSX 



para lo cual adjunto talón del Banco n.° a la orden de Manhattan Transfer, S A. 

Nombre y apellidos 

Dirección Tel.: 



■ Población DP. 



PPOv. ""o se admite contr arreembolso > 

i ~ ü ~— — — — — 
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INICIACION AL LENGUAJE MAQUINA 



DEL HARD AL SOFT 



7,-RO VTüH 




Los conocedores del Z-80 se encuentran a menudo con programas provenientes del Intel 8080. Es imprescindible, en 
la mayoría de ocasiones, conocer el código máquina (casi Z-80) de este chip. 



Los sistemas de anP basados sobre 
el Z-80 pueden acoger programas en 
lenguaje máquina escritos en 8080, 
pero no al contrario. Esto es posible por- 
que los 244 códigos de operación del 
8080 son utilizados de idéntica manera 
por el Z-80 el cual, a su vez, tiene la po- 
sibilidad de reconocer muchos otros có- 
digos, hasta un total de casi 700. 

Aunque técnicamente esta compatibi- 
lidad funciona para los códigos máqui- 
na, la cosa se complica en cuanto a los 
respectivos lenguajes Assembly, indis- 
pensables cuando se requiere un míni- 
mo de c' 




C0MR 
OPERATIVOS 

Los códigos 8080 han sido casi tripli- 
cados en el Z-80. Los códigos operati- 
vos en sentido estricto son todos de un 
solo byte, ya que las instrucciones com- 
pletas pueden ser de uno, dos o tres by- 
tes, y van de 00 a FF, con exclusión de 
los códigos 08, 10, 18, 20, "28, 30", 38, 
CB, D9, DD, ED y FD. 

El Z-80 utiliza los códigos operativos 
del 8080 indicados arriba. Además los 
códigos que han quedado vacantes en 
el 8080 se han empleado para alargar el 
set de instrucciones de manera que: 

- Los códigos D8 y D9 han sido utiliza- 
dos para permutar los dos set de regis- 
tros AF, AF\ y BC DE HL, BC" DE' HL'; 
los códigos 10, 18, 20", 28, 30" y 38 han 
sido utilizados para las instrucciones de 
saltos relativos; el código CB se usa 
como prefijo para otra serie de códigos 
de 00 a FF, esto es, códigos operativos 
de dos bytes inexistentes en el 8080, 
para las operaciones de ROTATE, 
SHIFT, TEST, SET y RESET de bit; 

- El código ED se utiliza como prefijo 
para una serie sucesiva de códigos de 
40 a BB (también de dos bytes) para la 
extensión de las operaciones de 16 bits, 
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la extensión de las operaciones de IN- 
PUT/OUTPUT entre registros y port se- 
ñalados por el registro C, así como algu- 
nas instrucciones como LDIR, CPIR, 
INIR, etc. que permiten la manipulación 
y traslado de áreas de memoria de cual- 
quier extensión (64K máx.) con mucha 
facilidad; 



- Los códigos DD y FD utilizados 
como prefijos posibilitan utilizar los dos 
registros de índice IX y IY de 16 bits, 
añadidos en el Z-80. En la práctica, si se 
coloca uno de estos prefijos delante de 
cualquier código que utilice el registro 
HL, se obtendrá que la misma operación 
prevista para dicho registro será efec- 
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tuada utilizando el registro IX o IY; y ade- 
más con la posibilidad de añadir o restar 
un desplazamiento cada vez que los re- 
gistros índice son usados como apunta- 
dores. 

En este último caso tenemos instruc- 
ciones que llegan hasta los cuatro bytes, 
de los cuales tres son de código operati- 
vo: son las instrucciones de manipula- 
ción de los bits de los contenidos de las 
direcciones apuntadas por los registros 
índice. 



COMPARACION DE LOS 
MNEMONICOS 

Existe compatibilidad, incluso en gran 
parte de instrucciones de test, set, y re- 
set de bit que pueden ser reemplazada 
en el 8080 utilizando sencillamente and, 
or y xor lógicos y ocupando también dos 
bytes. Por tanto, si queremos introducir 
en nuestro sistema Z-80 un programa 
para el 8080 será suficiente introducir 
los códigos de memoria. 

Ahora bien, si tenemos que modificar 
una pequeña parte del programa o hay 
que volverlo a colocar, o hay que hacer- 
le el "debug", empezamos a encontrar 
misteriosos cambios, por ejemplo, a 




cambio de "LDHL.xxxx" encontramos 
"LXIHxxxx"; o bien, en vez de "LD 
(HL),A" hallamos un "MOVM.A", y así 
sucesivamente. Con ello el usuario em- 
pezará una trabajosa búsqueda en el 
mnemónico Z-80 correspondiente al có- 
digo, hasta llegar, en los casos más 
complejos, a "traducirse" los listados en 
Z-80, con el consecuente riesgo de erro- 
res y una pérdida importante de tiempo. 

A continuación proporcionamos algu- 
nas consideraciones comparativas so- 
bre los mnemónicos de los dos aseem- 
bler Z-80 y 8080 y una tabla de cross-re- 
ference de los códigos compatibles, así 
como algunas consideraciones que de- 
berán llevaros a aprender también los 
mnemónicos 8080: 

- Los mnemónicos Z-80 se interpre- 
tan más fácilmente porque especifican 
las operaciones de forma más extensa, 
pero de manera abreviada. Por otra par- 
te, los menmónicos 8080 son mucho 
más concisos, con la consiguiente re- 
ducción del programa assembler, y por 
tanto se muestran menos comprensi- 
bles. 

- El término (HL) del Z-80 equivale al 
término M, es decir, memory, del 8080, 
ya que se da por supuesto que el punta- 
dcr de la memoria sea HL. 

- El término LD, es decir LOAD, se uti- 
liza en el Z-80 para cualquier operación 
de transferencia de datos en cualquier 
dirección (registros, parejas de regis- 
tros, localización de memoria, etc.), 
mientras que en el 8080 se utilizan, se- 

?lún los casos, los términos MOV 
MOVE) y S o ST (es decir, STORE). 

En general, LD la mayoría de las ve- 
ces se convierte en MOV en el 8080, 
menos para el cargamento de las pare- 
jas de registros y algunas del registro A. 
El término S o ST se utiliza en pocos ca- 
sos. 

- El término I (Inmediate) en 8080 in- 
dica el cargamento del "inmediato", es 
decir, el cargamento del dato numérico 
contenido en el byte que sigue al código 
operativo. 

- Por último, reproducimos las corres- 
pondencias más importantes: 



CODIGO MNEMONICO MNEMONICO 



parejas de registros: 



Z-80 8080 

AF PSW 

BC XBosoloB 

DE XDosoloD 

HL XHosoloH 

SP XSPoppureSP 



Z-80 8080 

ADDHL = DAD 

INC =INoppurelNR 

DEC = DC oppure DCR 

NOTA: El cuadro reproduce de forma 

utilizados 



OPER 


Z-80 


flORO 


00 


NOP 


NOP 


01 


LDBC,#### 


LXI B,#### 


02 


LD(BC),A 


STAXB 


03 


INC BC 


INXB 


04 


INCB 


INRB 


05 


DEC B 


DCR B 


06 


LD B,## 


MVIB,## 


07 


RLCA 


RLC 


09 


ADDHL.BC 


DADB 


0A 


LDA.(BC) 


LDAXB 


0B 


DECBC 


DCXB 


0C 


INCC 


INRC 


0D 


DECC 


DCRC 


0E 


LDC,## 


MVIC,## 


0F 


RRCA 


RRC 


11 


LDDE,#### 


LXI D,#### 


12 


LD(DE),A 


STAXD 


13 


INC DE 


INX D 


14 


INCD 


INRD 


15 


DEC D 


DCR D 


16 


LD D,## 


MVID,## 


17 


RLA 


RAL 


19 


ADDHL.DE 


DAD D 


1A 


LD A,(DE) 


LDAXD 


1B 


DEC DE 


DCXD 


1C 


INCE 


INRE 


1D 


DECE 


DCR E 


1E 


LDE,## 


MVIE,## 


1F 


RRA 


RAR 


21 


LDHL,#### 


LXIH,#### 


22 


LD(####),HL SHLD #### 


23 


INC HL 


INXH 


24 


INCH 


INRH 


25 


DECH 


DCR H 


26 


LDH,## 


MVIH,## 


27 


DAA 


DAA 


29 


ADDHLHL 


DADH 


2A 


LDHL,(####)LHLD#### 


2B 


DEC HL 


DCXH 


2C 


INCL 


INRL 


2D 


DECL 


DCRL 


2E 


LDL,##" 


MVIL,## 


2F 


CPL 


CMA 


31 


LDSP,#### 


LXISP,#### 


32 


LD(####),A 


STA#### 


33 


INCSP 


INXSP 


34 


INC(HL) 


INRM 


35 


DEC(HL) 


DCR M 


36 


LD(HL),## 


MVIM,## 


37 


STC 


39 


ADD HL,SP 


DADSP 


3A 


LDA,(####) 


LDA#### 


3B 


DECSP 


DCXSP 


3C 


INCA 


INRA 


3D 


DEC A 


DCR A 


3E 


LDA,## 


MVIA,## 


3F 


CCF 


CMC 


40 


LD B,B 


MOVB,B 


41 


LDB.C 


MOVB.C 


42 


LDB.D 


MOVB.D 


43 


LD B,E 


MOVB.E 


44 


LDB.H 


MOVB.H 


45 


LDB.L 


MOVB.L 
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LAQUINA 



DEL HABÍ Al SOFT 



46 

47 

48 

49 

4A 

4B 

4C 

4D 

4E 

4F 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

5A 

5B 

5C 

5D 

5E 

5F 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

6A 

6B 

6C 

6D 

6E 

6F 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

7A 

7B 

7C 

7D 

7E 

7F 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

8A 



LDB.(HL) 

LDB.A 

LDC.B 

LDC.C 

LDC,D 

LDC.E 

LDC.H 

LDC.L 

LDC,(HL) 

LDC.A 

LDD.B 

LDD,C 

LDD.D 

LDD.E 

LDD.H 

LDD.L 

LDD,(HL) 

LDD.A 

LDE.B 

LDE.C 

LDE.D 

LDE.E 

LDE.H 

LDE.L 

LD E,(HL) 

LDE.A 

LDH.B 

LDH.C 

LDH.D 

LDH.E 

LDH.H 

LDH.L 

LDH,(HL) 

LDH.A 

LDL.B 

LD L,C 

LDL.D 

LDL.E 

LDL.H 

LD L,L 

ÍStT 

LD(HL),B 

LD(HL),C 

LD(HL),D 

LD(HL),E 

LD(HL),H 

LD(HL),L 

HALT 

LD(HL),A 

LDA.B 

LDA.C 

LDA.D 

LDA.E 

LDA.H 

LDA.L 

LD A,(HL) 

LDA.A 

ADDA.B 

ADDA.C 

ADDA.D 

ADDA.E 

ADDA.H 

ADDA.L 

ADDA.(HL) 

ADDA.A 

ADCA.B 

ADCA.C 

ADCA.D 



MOVB.M 

MOVB.A 

MOVC.B 

MOVC.C 

MOVC.D 

MOVC.E 

MOVC.H 

MOVC.L 

MOVC.M 

MOVC.A 

MOVD.B 

MOV D,C 

MOV D,D 

MOVD.E 

MOVD.H 

MOVD.L 

MOVD.M 

MOV D,A 

MOVE.B 

MOVE.C 

MOVE,D 

MOV E,E 

MOVE.H 

MOVE.L 

MOVE.M 

MOVE.A 

MOVH.B 

MOVH.C 

MOVH.D 

MOVH.E 

MOVH.H 

MOVH.L 

MOVH.M 

MOVH.A 

MOVL.B 

MOVL.C 

MOV L,D 

MOVL.E 

MOVL.H 

MOVL.L 

MOVL.M 

MOV L, A 

MOVM.B 

MOVM.C 

MOVM.D 

MOVM.E 

MOVM.H 

MOVM.L 

HLT 

MOVM.A 

MOVA.B 

MOVA.C 

MOVA.D 

MOVA.E 

MOVA.H 

MOVA.L 

MOVA.M 

MOV A, A 

ADDB 

ADDC 

ADDD 

ADDE 

ADDH 

ADDL 

ADDM 

ADDA 

ADCB 

ADCC 

ADCD 



8B 


ADCA.E 


ADCE 


8C 


ADCA.H 


ADCH 


8D 


ADCA.L 


ADCL 


8E 


ADCA.(HL) 


ADCM 


8F 


ADCA.A 


ADCA 


90 


SUBB 


SUBB 


91 


SUBC 


SUBC 


92 


SUBD 


SUBD 


93 


SUBE 


SUBE 


94 


SUBH 


SUBH 


95 


SUBL 


SUBL 


96 


SUB(HL) 


SUBM 


97 


SUBA 


SUBA 


98 


SBCA.B 


SBBB 


99 


SBCA.C 


SBBC 


9A 


SBCA.D 


SBBD 


9B 


SBCA.E 


SBBE 


9C 


SBCA.H 


SBBH 


9D 


SBCA.L 


SBBL 


9E 


SBCA.(HL) 


SBBM 


9F 


SBCA.A 


SBBA 


A0 


ANDB 


ANAB 


A1 


ANDC 


ANAC 


A2 


ANDD 


ANAD 


A3 


ANDE 


ANAE 


A4 


ANDH 


ANAH 


A5 


ANDL 


ANAL 


A6 


AND(HL) 
ANDA 


ANAM 


A7 


ANA A 


A8 


XORB 


XRAB 


A9 


XORC 


XRAC 


AA 


XORD 


XRAD 


AB 


XORE 


XRAE 


AC 


XORH 


XRAH 


AD 


XORL 


XRAL 


AE 


XOR (HL) 


XRAM 


AF 


XORA 


XRAA 


B0 


ORB 


ORAB 


B1 


ORC 


ORAC 


B2 


ORD 


ORAD 


B3 


ORE 


ORAE 


B4 


ORH 


ORAH 


B5 


ORL 


ORAL 


B6 


OR (HL) 


ORAM 


B7 


ORA 


ORA A 




B8 


CPB 


CMPB 


B9 


CPC 


CMPC 


BA 


CPD 


CMPD 


BB 


CPE 


CMPE 


BC 


CPH 


CMPH 


BD 


CPL 


CMPL 


BE 


CP (HL) 


CMPM 


BF 


CP A 


CMPA 


CO 


RETNZ 


RNZ 


01 


POPBC 


POPB 


C2 


JPNZ,#### 


JNZ#### 


C3 


JP#### 


JMP#### 


C4 


CALLNZ,#### 


CNZ#### 


C5 


PUSH BC 


PUSHE 


C6 


ADDA ## 


ADI ## 

i ri Ti 


C7 


RSTO 


RSTO 


C8 


RETZ 


RZ 


C9 


RET 


RET 


CA 
- 


JPZ,#### 


JZ#### 


ce 


CALLZ,#### 


cz#### 


CD 


CALL#### 


CALL#### 


CE 


ADCA,## 


ACI## 


CF 


RST8 


RST1 


DO 


RETNC 


RNC 


D1 


POP DE 


POPD 


D2 


JPNC,#### 


JNC#### 


D3 


OUT(##),A 


OUT## 


D4 


CALLNC #### 


CNC #### 


D5 


PUSH DE 


PUSHD 


D6 


SUB## 


SUI## 


D7 


RST10H 


RST2 


D8 


RETC 


RC 


DA 


JPC,#### 


JC#### 


DB 


INA,(##) 


IN## 


DC 


CALLC,#### 


CC#### 


- 

DE 


SBCA,## 


SBI## 


DF 


RST18H 


RST3 


EO 


RET PO 


RPO 


E1 


POPHL 


POPH 


E2 


JPPO,#### 


JP0#### 


E3 


EX(SP),HL 


XTHL 


E4 


CALLPO,#### 


CPO#### 


E5 


PUSH HL 


PUSHH 


E6 


AND ## 


ANI## 


E7 


RST20H 


RST4 


E8 


RET PE 


RPF 


E9 


JP(HL) 


PCHL 


EA 


JPPE,#### 


JPE#### 


EB 


EXDE.HL 


XCHG 


EC 


CALLPE,#### 


CPE#### 


— 
EE 


XOR## 


XRI## 


EF 


RST28H 


RST5 


FO 


RETP 


RP 


F1 


POP AF 


POP PSW 


F2 


JP P,#### 


JP#### 


F3 


DI 


DI 


F4 


CALLP,#### 


CP#### 


F5 


PUSHAF 


PUSH PSW 


F6 


OR## 


ORI## 


F7 


RST30H 


RST6 


F8 


RFTM 

riL. i ivi 


□ y 

nivi 


F9 


LDSP.HL 


SPHL 


FA 


JPM,#### 


JM#### 


FB 


El 


El 


FC 


CALLM,#### 


CM#### 


FE 


CP## 


CPI## 


FF 


RST38H 


RST7 



POR J.C. GONZALEZ 
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Deja el manual de lado, inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 

PVP 3.500 pts. 
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al margen 
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Prov. 
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Programa de juegos realizado por 
Federico Frade Parada 

del más popular juego de ordenador de todos los tiempos? Simplemente apuntar que se trata 

una excelente versión para MSX, que esperamos te entretenga muchas horas. 





II CLEAR150 . 60999 ' : SCREEN l, 2i COLOR 15, 1, 
1:KEY OFF : VP0KEB2 1 9 f írH2 1 s H I DTH 20:LOCATE 
0.4:ON STOP GOSUB 1130 




25 PRINT,," SOFTWARE" 

30 IF CHR$ (PEEK 163679 ' ) )< >"B"THEN GOSUB 

1095:KEY5,'6OTO10-+CHR$(13):ELSE6OSUB1U 

5:60SUB1125 

35 DEFINT A-Z : HS=PEEK (63728 ! ) +256IPEEK ( 
63738!) 

40 WIDTH31:CLS: COLOR 15,l,l:VP0KEB194,ltH 
F4:VP0KE8195,l<HF4::VP0KE 821 9, ttHAF : LOCAT 
E2, 2 

45 PRINT' i 1 

V EL C0MEC0C0S I I 

! | COPYRIGHT 31-0 
3-1986 I I I 



50 LOCATE 0,9 

55 PRiNT- mmmi mi i 

lllll llllllll I M H 

i iiiinin i ni i 
un ■' 

60 PRINT- | || MI Mil I- 
65 LOCATE 2,15 

70 PRINT- r 1 

V Prograia Realizado Por: | | 

I | FEDERICO FRADE 







PARADA 
• — 



75 PA=0:Z=RND(-TIME):LIV=3:SC=0 
80 RESTORE:PLAY-S10H60000L16O4EF6GFEDCCÜ 
EEDD R64EFG6FEDCCDEECC R64DECDEFECDEFECD 
EC EFGGFEDCCDEEDD" 

85 FOR A=2T09:C$="":F0R B=0TO31:READ B$: 
C$=C$+CHRI(VALCiH"+B$)):NEXT B:SPRITE$( 
A)=C$:NEXT A 

90 SPRITE$(0)=SPRITE$(2):SPRITE$(1)=SPRI 
TEÍ(2) 

95 ' FANTASMA 

100 DATA 07,1F,1F,39.39,39,3F,3F,3F,3F,3 
F,3F, 37, 33,21, 0,E0,FB,F8,9C,9C,9C,FC,FC, 
FC,FC,FC,FC,DC,BC,04.0 
105 ' PACMAN UP 

110 DATA 00,08,1B,38.7C,7C,FC,FF,CF,CF,7 
F,7F,3F,1F,0F, 03,00,10, 18,1C,3E,3E,3F,7F 
,7F,FF,FE,FE,FC,F8,F0,C0 
115 'RIGTH 

120 DATA 03,0F,19,39,7F,7F,FF,FE,FF,FF,7 
F,7F,3F,1F,0F,03,C0,F0,F8,FC,FE,F0,80,00 
,80,E0,FE,FE,FC,F8,F0,C0 
125 ' DOHN 

130 DATA 03,0F,1F,3F,7F,7F,FE,FE,FC,FB,7 
8, 70,30,10,00, 00,C0,F0,F8,FC,FE,FE,E7,E7 
,7F,7F,3E,3E,IC,18, 10,00 
135 'LEFT 

140 DATA 03,0F,1F,3F,7F,0F, 03,00,00,01,0 

F,7F,3F,1F,0F,03,C0,F0,38,3C,FE,FE,FF,FF 

,3F,FF,FE,FE,FC,F8,F0,C0 

145 ' FANTASMA COMESTIBLE 

150 DATA 07,1F,1F,3F,3D,3D,3F,3F,3F,3F,3 

F,3F,37,33,21,00,E0,F8,F8,FC,BC,BC,FC,FC 

,FC,FC,FC,FC,DC,8C,04,00, 03,0F, 19,39,7F 

,7F,FF,FF,FF,FF,7F,7F,3F,1F,0F,03,C0,F0, 

F8,FC,FE,FE,FF,FF,FF,FF,FE,FE,FC,F8,F0,C 



155 'GRAFICOS 

160 RESTORE 165:F0R Z=0TO20:READ A: FOR W 
=0TO7:READ B$:VP0KE At8+H,VAL("fcH'+B$):N 
EXT: NEXT 

165 DATA 1,0,0,0,0,0,0,01,03,2,0,0,0,0,0 
,0,80,C0,3,03,01, 0,0,0,0,00,00, 4, C0,80,0 
,0,0,0,0,0,131,0,0,0,0,01,03,05,08,132,1 



8, 30, 60, C0, 80, 0,0, 80 

167 DATA 133,10,7C,FE,FE,FE,FE,7C,38,134| 
,40,38,7C,FE,FE,FE,7C,38,136,0,0,01,03,0 
6,07, 0D,0F, 137,0, 0,80, C0.E0,D0,E0,F0, 138 
,0F,0F,0F,07, 06,03,01,0 
170 DATA 139,F0,F0,F0,E0,E0,C0, 80,00,212 
,0,0, 1, D,1F, 37, 23,37, 213,3B,1F,1F,0F,07, 
03,0,0,214,60,C0,80,E0,F0,F0,FB,F8,211,F 
8,F8,F0,F0,E0,C0,0,0 
175 DATA 219,FF,81,81,81,81,81,81,FF,147 
,00,01,01, ID, 2A,55,6A,55, 148, 00,80,80, B8 
, 54, AA,56,6A, 149, 7A,2D,1A, 00,05,03,01, 00 
,150,96,6C,B8,50,A0,40,80,00 
180 VPOKE8208 , &H81 : VPOKE8209, &HA1 : VP0KE8 
210,MD1:VPOKE 8192, &HB1 : VPOKE 8218, &HF1 
:Q=INT(RND(l)U3+l):VP0KE8219,12tl6+Q:IF 
Q=60RQ=80RQ=90R9=13THENVPOKE8219,INT(RND 
(1)112+2)116 

185 ST0P0N: GOSUB 555:FORZ=0TO9:VPOKE 691 
5+4tZ,0:NEXT:VPOKE8218,*H81 
190 GOSUB 600: IF LIV>5 THEN LIV=5 
195 SOUND 0,10:SOUND 1,4:S0UND 2,60:SOUN 
D 3,6:S0UND 4,86:S0UND 5,5:S0UND 6,0:SOU 
ND 7,184:SOUND8,0:SOUND9,0:SOUND 10,0:SO 
UND 11,54:S0UND 12,10:SOUND 13,8 
200 X=128:Y=104:BA=6144:IF SOHS THEN HS 
=SC 

205 FOR N=0TO2:A(N)=16»N:B(N)=200:M(N)=0 
:P(N)=5:D(N)=N+1:PUT SPRITE N,(16+16*N,2 
00),0,N:NEXT 

210 PUT SPRITE 3, (X , Y) , 10, 3: VPOKE 6926,1 
6:VP0KE 6924,Y:VP0KE 6925,X:VP0KE 6926,1 
6 

215 LOCATE 0,23:PRINT SC;:L0CATE 9,23:PR 
INTHS; : L0CATE19, 23: PRINTPA; : LOCATE 26,23 
:PRINTLIV; 

220 IF STICK(0)=0 AND STICK(1)=0 THEN 22 


225 'BUCLE PRINCIPAL 
230 ON STICK(0)ORSTICK(1) GOSUB 330,340, 
350,360,370,380,390,400 
235 IF P< 1THEN LIV=LIV+1: SOUND 9,15:F0RZ 
0=0TO9: FORZ=9TO0STEP-1 : SOUND 2, Zt5: SOUND 
3,2:FORQ=0TO20:NEXT:VPOKE 6915+4»Z,0:NE 
XT:NEXT:SOUND 9,0:6OTO 190 



■ 



t / i\UuKni h u 



240 IF MC=1 THEN T=T-1 : SOUND10, 16: SOUND 
4,Ttl0:SOUND 5, 1: IF T<1 THEN SOUND10,0:G 
OSUB 535 

245 IF nm»\ THEN N=0:GOSUB 410 
250 IF miM THEN IM; GOSUB 410 
255 IF H(2)=l THEN N=2:G0SUB 410 
260 IF M(0)=1 AND M(l)=l AND M(2)=l THEN 
230 

265 IF H(f)«f THEN N=0: GOSUB 290 
270 IF N(1)*0 THEN N=1:G0SUB 290 
275 IF H(2)-l THEN N=2:G0SUB 290 
280 GOTO 230 

285 'APARICION DE LOS FANTASMAS 

290 IF INT(RND(l)tl00)<75 THEN RETURN 

295 H(N)=1:A(N)=128:B(N)=56:IF N=0 THEN 

PUT SPRITE N,(A(N),B(N)),4,N 

300 IF N=l THEN PUT SPRITE N, (A(N) ,B(N) ) 

,7,M 

305 IF N=2 THEN PUT SPRITE N, (A(N) ,B(N) ) 
,13,N 

310 IF HC=1 THEN VPOKE 6914+4ÍN, 28: VPOKE 
6915+4tN,3 
315 RETURN 

320 1 Moviiiento Coiecocos 
325 ' ARRIBA 

330 Z9=USR1(0):VPOKE6926,32:V3=PEEK(6100 
6!) 

335 IF V30219 AND V3<>32 THEN SOUND 3,2 
:G0SUB 525 

340 Y=VPEEK(6924):VP0KE6926,12:RETURN 
345 ' DERECHA 

350 Z9=USR3(0):VPOKE6926,32:V3=PEEK(6100 
6!) 

355 IF V30219 AND V3<>32 THEN SOUND 3,2 
:G0SUB 525 

360 X=VPEEK (6925) : VP0KE6926, 16: RETURN 
365 ' ABAJO 

370 Z9=USR5(0):VPOKE6926,32:V3=PEEK(6100 
6!) 

375 IF V30219 AND V3<>32 THEN SOUND 3,2 
:G0SUB 525 

380 Y=VPEEK (6924) : VP0KE6926, 20: RETURN 
385 ' IZQUIERDA 

390 Z9=USR7(0):VPOKE6926,32:V3=PEEK(6100 
6!) 

395 IF V30219 AND V3<>32 THEN SOUND 3,2 
:GOSUB 525 

400 X=VPEEK (6925) : VP0KE6926, 24: RETURN 
405 ' MOVIMIENTO DE LOS FANTASMAS 
410 IF X=A(N) AND Y=B(N) THEN GOSUB 485 
415 POKE 61445!, NsPOKE 61448',HC 
420 Z=USR0(0) 

425 A(N)=PEEK(61446!):B(N)=PEEK(61447!) 
430 IF X=A(N) AND Y=B(N) THEN GOSUB 485 
435 RETURN 







440 » ARRIBA 

445 Y0=Y0-16: VPOKE 6912*4*N,Y0:B(N)=Y0:P 

(N)=P(N)-1:RETURN 

450 ' DERECHA 

455 X0=X0+16: VPOKE 6913+4tN, X0: A(N)=X0: P 

(N)=P(N)-1:RETURN 

460 ' ABAJO 

465 Y0=Y0+16:VPOKE 6912+4IN, Y0:B(N)=Y0:P 

(N)=P(N)-1:RETURN 

470 ' IZQUIERDA 

475 X0=X0-16:VPOKE 691 3+4»N, X0: A (N) =X0: P 
(N)=P(N)-1:RETURN 
480 ' COLISIONES 
485 N0=10 

490 IF A(0)=X AND B(0)=Y THEN N0=0 
495 IF A(1)=X AND B(1)=Y THEN N0=1 
500 IF A(2)=X AND B(2)=Y THEN N0=2 
505 IF N0>2 THEN RETURN 
510 IF MC=1 THEN 520 
515 SOUND 8,15:F0R Z=0TO15: VPOKE 6927, Z: 
SOUND l,3+Z:FOR W=0TO100:NEXT:NEXT:X=0:Y 
=200:PUT SPRITE 3, ( X , Y) , 0, 3: SOUND 8,0:LI 
V=LIV-1:IF LIV<0 THEN RETURN 540:ELSE RE 
TURN 200 

520 SOUND 8,15:PUTSPRITE3,(X,Y),3,0:FORZ 
=3TO6:PUTSPRITEN0,(X,Y),10,Z:SOUND1,Z»10 
:FORH=0TO200:NEXT:NEXT:M(N0)=0:A(N0)=16t 
N0:B(N0)=200:PUTSPRITE3,(X,Y),10,3:PUT S 
PRITE N0,(16!N0,200),0,N0:SOUND 8,0:SC=S 
C+(4*PA) ¡LOCATE 0, 23: PRINTSC; : RETURN 230 
525 IF V3<20 THEN SOUND 9, 15: SOUND 2,60: 
SC=SC+1:P=P-1: SOUND 2,80:LOCATE 0,23:PRI 
NTSC;: SOUND 2, 70: S0UND9, 0: RETURN 
530 SOUND 9, 15: SOUND 3,2:MC=1:T=25:F0R Z 
=0TO2:SOUND 3,Z:PUT SPRITE Z, (A(Z) ,B(Z) ) 
,3,Z:VP0KE 6914+4IZ, 28: VPOKE 6915+4»Z,3: 
NEXT: SC=SC+3: P=P-1 : LOCATE0, 23: PRINTSC; : S 
OUND9,0:RETURN 

535 HC=0:T=0:FOR Z=0TO2: VPOKE 6915*4*Z,5 
+2tZ:VPOKE 6914+4*Z , Z*4: NEXT: RETURN 

540 LOCATE10,9:PRINT" i ,":LOCATE10 

,10:PRINT"| FIN |':LOCATE10, 11 :PRINT" | 
DEL |":LOCATE10, 12:PRINT" | JUEGO |'sL 

OCATE10, 13:PRINT" ' »":FOR Z=0TO6:V 

POKE 6915+4$Z,0:NEXT 

545 IFSOHSTHEN HS=SC: L0CATE9, 23: PRINTHS 
; : PLAY'S10M3000L8CDEAFDECBDEADFCGFEDFCED 
ADCDCEDCEDCCDEDCDC : IF HS>32767 THEN HS= 
32767 

550 POKE 63728! , HS- (256»INT (HS/256) ) : POK 
E 63738', INT (HS/256) :GOTO 75 
555 CLS:' INSTRUCCIONES 
560 PRINT'i 



EL COMECOCOS 



WQW- 



I | 

DEBES COMERTE T 



ODOS LOS 
■ 



PUNTOS DEL LABERINTO. 



565 PRINT" | ESQUIVA A LOS FANTASMAS, | 
QV AL COMERTE UNA FRUTA LOS | I FANTAS 
HAS SE VUELVEN DE I | COLOR VERDE Y E 
NTONCES TE |' 

570 PRINT' | LOS PUEDES COMER ANTES I 
QV DE QUE VUELVAN A SU II ESTADO 

NORMAL. | | 



I h 



|575 PRINT" h 
QT 



MANDOS 1 

i (PUEDES 

USAR LAS TECLAS DEL I ICUPSOR O EL JOYS 

TICK | \ 

WQW-P 

580 PRINT" IPULSA LA BAPRA DE ESPACIOS I 
QV i I O EL B 

OTON DEL JOYSTICK 1 | 1 

WQW 

585 IF STRIG(0)=0 AND STRIG(1)=0 AND STR 
IG(2)=0 THEN 585 
590 RETURN 

595 ' CREACION LABERINTO 

600 PA=PA+1: IF PA> 13THEN PA=1:VP0KE3218. 

&H60:VPOKE 8192,ítHB0 

605 CLS:P=0 

610 ON PA GOSUB 635.670,710,745,780.815, 

845,885,920,955,985,1025,1060 

615 LOCATE . 23: PRINTSTR INGi ( 30, 32) : : LOC 

ATE 0,22:PRINT"PUNTOS RECORD NIVEL 

VIDAS"; 

620 LOCATE 0,23:PRINT SC; ¡LOCATE 9,23:PR 
INTHS;:L0CATE19,23:PRINTPA;:L0CATE 26,23 
¡PRINTLIV; 
625 RETURN 

627 'GRAPH+[=$$=GRAPH+SHIFT+[ GRAPH+SHIF 
T+'=M=GRAP+SHIF+; GR+SH+F= „ =GR+SH+H GR 
APH+P=| GRAP+SH+V="=GR+SH+N cod+q=3á=co 
♦a cod+w=?e=code+s code+z=áá=cd+< 

628 'cod+r=Sb=cod+f cod+x=éí=cod*d code+ 
v=65=cod+t 

630 '1§ PANTALLA 
635 PRINT'I 




ioc#r 

640 PRINT 

CQDtmmmi i eim emi mm mi 

IQA6l a 

645 i««im«*iBi«»iiini«*ini*«i 

enn^im^Biiiiit^ffnic^ i»m» 



650 PRINT 

iii"ii'«ii«ai"ii««ii»ti<ti mn 

II" II" 11**1 UMMWMMtoHMM 

■r 

¿55 PRINT"| " »♦»♦»♦•♦•♦»♦#♦•♦»♦»♦•♦»♦ » | 

IIIIIHIIIIHIinilHIlIHMn " 

660 P=90:RETUPN 
665 '2§ 

670 ' : n mnmuiiiimiiiHHiiiiu 

i ?i **«*i**»*h 

AQB^enn^i iHii««ii««ii««ii«««miii 

ioc*r 

675 PRINT 
l**ll"""U"llll"inH«*«r 

680 PfilItT m OI O —OtOIOI O I H OlCIO W 

i*m*«ii»<mmm«Mmiu mnwi 

685 iMiiMiiMniiHiin*«ii««ui 

DQCmwmtm#Mm| 



690 l'*im||H"BI"lf"IIMM| 

i§$ii^iim^$^en&e^i imiiw 

||f««mt*««||«m«»| | $1BII $11 eilll 

■IvSllyWl^W 

695 l« ' lili" II" lililí ♦ II» ♦ II* ♦ I 

Pimmmnmmmti iáa»»m 

DQCmfmimmmáál 



700 P=97:RETURN 
705 '3i 

710 PRINT "IIHI 

w 



DQCtfMM«tmfMM«éí| l$dll§$ll®$IIC<$l! 

ii en $n ei i**ii«ii"H»*iibi»ii»i 

715 PRINT"|^^$MI^IIW«a^a@«l 
|mmtmH»M»H»Ht*| 1*1*1 

wmmtMymwzmi i«*iiHiif 

720 pRiNT"i^n^n^Mimnii^»^i 
i <ii"ii"mmnii**iiii"i 

BB ft iP I IIO lU O M i OmO II HffMWfWMM 
:::m«m«mi«i° 

725 PRINT-I^B^H^II^II^II^BMI 

■««•■««■■««■•♦■•♦■mi mmi 

:::*«llM*t9«i 

730 PRINT 



^JDQfTlQC 

i i\Uüi\m // /_' 



CQDMMtméil 



I»*»* 

BQA 



735 P=100:RETURN 
740 '43 

745 PRINT" IWMHMIIIMimilllUIII 

so^e^emi^e^^nni bógmh* 

DQC4||n» ♦•♦*♦»♦•♦♦ I$*IK#B$*&@$* 

iniñeim^i i<«ii'«iiM'm»«iiii«*m 

mea" 

750 PRiNT"i^^^e$enniiHH^ini^i 

I t«M||||||lll|M||||M| I 1 -I 

CQDtmMtmr 

755 pRiNT"i@$^^an^nu^iw«i 
imm»miiii«*iiii"iin«*i mum 

I lili lili ¿IHL4I »«B««H"MI» 

«nn»r 

760 ?mnvmmmm#mw*HHm 

|tmM««MM»mommtm| |$$U0$l 
IQA$H^II^II^IUI^I 

765 PRINT" 

|M||M||M««*«MM««««|Hi««| |5b§*$6$ 

CQDUmmmóGI HHHHMN 

770 P=95:RETURN 

775 '51 
780 lililí 

■■^KtlfttlMIKMHtSál |"H««| 

i »H"ii«ii««ii"áái i ommemo m 

DIB" 

785 PFINT"|^|^y^|^||^IK'0I^IM 

l<<ll"ll<'ll"ll"ll»ll"lll ¡MIMO 

*iii¡<<iiif»<*mi"if<>i tmt 

iGA$nu^iM*eii4*i *♦»♦»♦■■«♦ 

QDBB»#Bt#r 
795 PRINrPKHWftim H 

CQDlWMtwr 

800 PRINT" 



*nmi«*i H *m* 

:| |é; •♦»♦»♦»♦•♦•♦»♦ 




CQDMfMfMóul 

805 P=86:RETURN 
810 '63 








815 PRINT-HHBnHMHH 

PéOW M M OOBOO B OO B OO B ■ ■ léiuHt 

mm*m*mm m i tmmmmim 
n&eueeii$ei i «■■««■"■"■"■«l 

|QC»|" 

820 PRINT l$Mtt$Met$ttt$tttt*M$tMI 

lMf»t(?«MM*»MMMI«(*IM«| 

imiii i 
ii i¡iiii« « 

825 PRINT 

|MMMMMMM9m«mMfH*| 

mil eiiuii 
lililí» 1 

830 PRINT' 

immtmtmMMtmmml imi^i 
imiii ininu ^in ihii^iiiiiiii** 

lllllll»«nr 

|«,MMMM(«MfM«MM««MM| |£á||®$| 

lllteilll^llH^H I lá ft<»llll<«llli 

:ocmit«iióGa 

840 P=86;RETURN 
845 '78 

850 miiimiminiiiiiiiiiiiiii 

DGCMWf " | 1^11611 6I1II< 

muí mtm i»n»w*M**mm»i 

|QC«|- 

855 ?mvm^mmmm^mm 
inhmiimuhii««ii««ii]i««i umihi 

CQDmm||f«|" 

i"ii"ii**B*»««ii**iiiiii"i mmm 

mm*Mmmmm u»» 

H»*M»*»m|' 

870 PRINT-MHHMMOMWMMM 
H<MK«*mi«IMIIt"B"l |„M$t$ 

BQAt HO lQIOM OM t l il rprntrnim 
CQDmmmBUI 



875 P=88:RETURN 
880 J 8§ 

885 PRINT 11 UM 



wmmmmmm mmm 

DQC«MMMM9HMmáá| 

AQBHnOMMI HM») 

|QC«|- 

890 PRINT"! 



lúftMt 







t«IIHn"llH»mH*H*9m| tmtcm 




CQDtm 

900 PRINT"__ 

iiiuiimint«9«H^H««a«ti %mm% 

if*«**"it*«r 

i<mt^iitiii*>iiiiii"ii"i i 

BQA6$t$ettft$e$Mtft.i ivmtmMtM» 
CQDtmtm"! 




910 P=89:RETURN 
915 '9i 

920 PRINT"NHH 

Pe| 

DQCmtmtmfmt* 
AQBMM»M I»** 

925 PRINT 

■•♦■mmtmMMHMMHMl m 
CQDIIWH»!' 

|HHHtmH»HtmfmB»| I06N^I 

io o iinflúiiflfiiMLirtLiúúftLifti H»n««H«*n««n 

935 PRINT J^O^W^^^i^l^lll 
9 40 PRINT' — III lili lllB illB illll II 

imHiitmmiiMHMW»»« i. 

CQDBl*Ht*éi| 

945 P=86 ¡RETURN 




950 '102 
955 PRINT' 
BU 

|QCmM»ml|»»m«áa| 
AQBB OO — 00 1 !»■» 

kw 

960 PRINT-KNM^^^6IK^aMI 

cQDmmn*«r 

965 PRINT' 

|»H»tmHMHM«mHH»| KMKfl 

CQD«m»mm|" 

970 PRINT" 

*||««M»«««M||««||9*| 

CQDUMMMW 

CQDtmB»ei| 
IHI" 

980 P=82 : RETURN 
985 '113 
990 PRINT 




995 PRINT' 

HmMMtmtmHMfmtml 
CQDmIHMM' 

1000 PRINT"KW«<^6^^0$^e^ 

♦I 

1005 PRINT" 

i iin«**it«*n»*»«»*»«n«*»»»*i i?eii?e 

■NT 

1010 PRINT 

■QCmntméíl 





1015 P=86:RETURN 
1020 ' 121 
1025 PRINT'HM 
IISo< 

CQDfttftmiw#mi*áá| 



►♦I 





1030 PFINTl^^^í^n^ltí^eil 

DQCmMHBMl' 

1035 ?mvwwmm$mwmm 
mmmmwmumm tu»*** 

IQCmM 
1040 PRINT" 
I |#««m»m»m*m||«m«m| Hnm 

■qcISmSSS'"™" ******* **** 1 

1045 ?mvMQM$mmmmMm** 

I |HMimBtmtmBMfMM*| I„M| 



1050 P=38: RETURN 
1055 ' 13! Y ULTIMA 
1060 PRINT' — 
I ISal 



_ ♦ 

CQDf«r 

1065 F'RINT-|«^|^$ll^lló$ll^l|6$ll^ 

DQCtMMttMt#T 

i iMii<4ii!«H!in^^tn! mn* 

i iii««ii"ii«*ii«*ii"ii"ii<»i mmt 

pmmmmmmnm wm*mm* 

DQC*Mt«MMffT 

1080 PRINT"|^||^||^||c«||ó$|»;.$ir8ll 
I I >lh ÍI» ll' IÍ «III I .. 11^9 

AQB9*»^*&e*^?e| l'^mim..» 
DQCttWMttéil 



1085 P=105:RETURN 

1090 ' CODIGO MAQUINA 

1095 2=0:RESTORE 1140 

1100 READ A$:IF A*="FIN"THEN 1115 

1105 POKE 61010!+Z f VALniH'+fl$) 

1110 Z=Z+1:50T0 1100 

1115 DEFUSR1=61060 I :DEFUSR3=61251':DEFUS 
R5=6 1155': DEFUSP7=6 1 349 ! : DEFUSR0=6 1 460 ! 
1120 RETURN 

1125 F=8219:FORZ=0TO200: VPOKEF, *.HCC:VPQK 
EF , &H22 : VPOKEF ,ítH33: VPOKEF , ItHFF : VPOKEF , k 
HAA: VPOKEF, &H88: VPOKEF, &H66: VPOKEF, &H77: 
VPOKEF , IcHSS : VPOKEF , fcH44: NEXT : RETURN 




OO/!/" QQlTjQC 

i i\üüi\ni b u 



1130 RUN 
1135 ' GETDIR 

1140 DATA 21,00, 18,3A,48,EE,CB,3F,CB,3F, 
CB,3F,5F,16,00,19,3A,4A,EE,47,CB,38,CB,3 
B,CB,38,2B,08,11,20,00,A7,ED,5A,10,FB,22 
,4C,EE,CD,4A,00,32,4E,EE,C9,00,00,00,00 
1145 ' ARRIBA 

1150 DATA 21,0C,1B,CD,4A,00,3D,32,4A,EE, 
21,0D,1B,CD,4A,00,32,48,EE,CD,52,EE,FE,D 
B,2S,36,3A,4B,EE,C6,0F,32,48,EE,CD,52,EE 
,FE,DB,28,27 

1155 DATA 3E,20,CD,4D,00,2B,3E,20,CD,4D, 
00,11,20,00,A7,ED,52,3E,20,CD,4D,00,23,3 
E,20,CD,4D,00,21,0C,1B,CD,4A,00,D6,Í0,CD 
,4D,00,21,0E,1B,3E,0C,CD.4D,00,C9,00 
1160 ' ABAJO 

1165 DATA 00,00,00,00,00,21,0C,1B,CD,4A, 

00,C6,11,32,4A,EE,21.0D,1B,CD,4A,00,32,4 

8,EE,CD,52,EE,FE,DB,28,36,3A,48,EE,C6.0F 

,32,48 ) EE,CD,52,EE,FE,DB,28,27 

1170 DATA 3E,20,CD,4D,00,2B,3E,20,CD,4D, 

?0,11,20,00,A7,ED,5A,3E,20,CÜ,4D,00,23,3 

E,20,CD,4D,00,21,0C,1B,CD,4A,00,C6,10,CD 

,4D,00,21,0E,1B,3E,14,CD,4D,00,C9,0 

1175 ' DERECHA 

1180 DATA 00,00,00,00,00,21,0C,1B,CD,4A, 

00,3C,3C,32,4A,EE,21,0D,1B,CD,4A,00,C6,1 

0,32,48,EE,CD,52,EE,FE,DB,28,36,3A,4A,EE 

,C6,0C.32,4A,EE,CD,52,EE,FE,DB,28,27 

11B5 DATA 3E,20,CD,4D,00,3E,20,23,CD,4D, 

00,3E,20,11,20,00,A7,ED,52,CD,4D,00,3E,2 

0,2B,CD,4D, 00,21,00, 1B,CD,4A,00,C6, 10, CD 

,4D,00,21,0E,1B,3E,10,CD,4D,00,C9,00,00, 

00,00,00,00 

1190 ' IZQUIERDA 









1195 DATA 21,0C,1B,CD,4A,00,C6,04,32,4A, 
EE,21,0D,1B,CD,4A,00,3D,32,48,EE,CD,52,E 
E,FE,DB ) 28,36,3A,4A,EE,C6,08,32,4A,EE,CD 
,52,EE,FE,DB,28,27 

1200 DATA 3E,20,CD,4D,00,2B,3E,20,CD,4D, 

00,11,20,00,A7,ED,52,3E,20,CD,4D,00,23,3 

E,20,CD,4D,00,21,0D,1B,CD,4A,00,D6,10,CD 

,4D,00,21,0E,1B,3E,18,CD,4D,00,C9,00 

1205 DATA 0,0,0,0,00,00,00,00,00,00,05,0 

1,05,02,05,03,0,0,0 

1210 ' MOVIMIENTO FANTASMAS 

1215 DATA 3A,05,F0,47, 04,21, FC,1A,11, 04, 

00,19,10,FD,CD,4A,00,32,07,F0,23,CD,4A,0 

0,32,06,F0 

1220 DATA 3A,05,F0,47,21,0B,F0,A7,28,04, 
23,23,10,FC,7E,32,09,F0,23,7E,32,0A,F0 
1225 DATA 3A,08,F0,A7,20,29,21,0C, 1B,CD, 
4A,00,47,3A,07,F0,90,FC,50,F2,FE, 40,28,0 
2,30,15,23,CD,4A,00,47,3A,06,F0,90,FC,50 
,F2, FE, 40, 28,02, 30,03, CD,EF,F1,3A,09,F0, 
FE,00,20,1E 

1230 DATA 3A,9E,FC,E6,03,3C,32,0A,F0,3A, 
9E,FC,E6,07,3C,32,09,F0,3A,05,F0,FE,02,2 
0,05,3E,0A,32,09,F0 

1235 DATA 3A,0A,F0,FE,01,CC,ED,F0,3A,0A, 

F0,FE,02.CC,2C,F1,3A,0A,F0,FE,03,CC,6E,F 

1,3A,0A,F0,FE,04,CC,AE,F1,3A,05,F0,47,04 

,21,FC,1A,11,04,00,19,10,FD,3A,07,F0,CD, 

4D,00,23,3A,06,F0,CD,4D,00 

1240 DATA 3A,05,F0,47,2i,0B,F0,A7,28,04, 

23,23, 10,FC,3A,09,F0, 77,23, 3A,0A,F0,77,C 

9 

1245 ' ARRIBA 

1250 DATA 3A,07,F0,3D,32,4A,EE,3A,06,F0, 
32,48,EE,CD,52,EE,FE,DB,28,1F,3A,06,F0,C 











6,0F,32,4B,EE,CD,52,EE,FE,DB,28,10,3A,07 
,F0,D6, 10,32, 07,F0,3A,09,F0,3D,32,09,F0, 
C9,3E,00,32,09,F0,C9 
1255 ' DERECHA 

1260 DATA 0,0,0,0,0,0,3A,07,F0,3C,3C,32, 

4A,EE,3A,06,F0,C6,10,32,48,EE,CD,52,EE,F 

E,DB,2B,1F,3A,4A,EE,C6,0C,32,4A,EE,CD,52 

,EE,FE,DB,28,10,3A,06,F0,C6, 10,32,06, F0, 

3A,09,F0,3D,32,09,F0,C9 

1265 DATA 3E,00,32,09,F0,C9,0,0,0,0,0,0 

1270 ' ABAJO 

1275 DATA 3A,07,F0,C6, 11,32,4A,EE,3A,06, 

F0,32,48,EE,CD,52,EE,FE,DB,28,1F,3A,48,E 

E,C6,0F,32,4B,EE,CD,52,EE,FE,DB,2B,10,3A 

,07,F0,C6,10,32,07,F0,3A,09,F0,3D,32,09, 

F0,C9,3E,00,32,09,F0,C9 

1280 ' IZQUIERDA 

1285 DATA 0, 0, 0,0,0,0,3A, 07, F0,C6, 04,32, 

4A,EE,3A,06,F0,3D,32,48,EE,CD,52,EE,FE,D 

B,28,1F,3A,07,F0,C6,0C,32,4A,EE,CD,52,EE 

,FE,DB,28,10,3A,06,F0,D6,10,32,06,F0,3A, 

09,F0,3D,32,09,F0,C9,3E,00,32,09,F0,C9 

1290 ' PERSECUCION 

1295 DATA 0,0,0,0,0,0,21, 0C, 1B,CD,4A,00, 
47,3A,07,F0,B8,20,22,23,CD,4A,00,47,3A,0 
6,F0,B8,C8,3B,0B,3E,04,32,0A,F0,3E,0A,32 
,09,F0,C9 

1300 DATA 3E,02,32,0A,F0,3E,0A,32,09,F0, 

C9,23,CD,4A,00,47,3A,06,F0.B8,C0,2B,CD,4 

A,00,47,3A,07,F0,B8,C8 

1305 DATA 30,0B,3E,03,32,0A,F0,3E,0A,32, 

09,F0,C9,3E,01,32,0A,F0,3E,0A,32,09,F0,C 

9,0,0,0,0,0,0,2F,3C,C9, 00,00,00,00, 00,FI 

N 

1310 'FIN DEL PROGRAMA 



TEST DE LISTADO 



Para utilizar el Test de Listados que ofrecemos al final de cada programa, recordamos que previamente hay 
que cargar en el ordenador el Programa correspondiente aparecido en nuestro número 10, de octubre pág. 29. 



[0 


-176 


80 


- 


150 


- 85 


215 


-145 


285 


- 58 


355 


- 29 


425 


-133 


495 


-178 


565 


-190 


628 


- 58 


695 


- 83 


765 


-249 


15 


- 53 


85 


-125 


155 


- 58 


220 


- 76 


290 


- 98 


360 


-203 


430 


- 44 


500 


-181 


570 


- 88 


630 


- 58 


700 


-119 


770 


-117 


20 
25 


-138 


90 


- 81 


160 


- 63 


225 


- 58 


295 


-176 


365 


- 58 


435 


-142 


505 


-114 


575 


- 86 


635 


-181 


705 


- 58 


775 


- 58 


-152 


95 


- 58 


165 


-217 


230 


- 52 


300 


-164 


370 


-138 


440 


- 58 


510 


- 14 


580 


- 75 


640 


- 56 


710 


-161 


780 


-237 


30 


-163 


100 


- 91 


167 


-220 


235 


-226 


305 -169 


375 


- 29 


445 


- 46 


515 


- 19 


585 


-185 


645 


- 76 


715 


-199 


785 


-199 


35 


-168 


105 


- 58 


170 


-228 


240 


-225 


310 


- 84 


380 


-207 


450 


- 58 


520 


- 86 


590 


-142 


650 


-159 


720 


-131 


790 


-183 


40 


-130 


110 


-229 


175 


- 56 


245 


-211 


315 


-142 


385 


- 58 


455 


-166 


525 


- 50 


595 


- 58 


655 


-241 


725 


-131 


795 


-131 


45 


- 5 


115 


- 58 


180 


-171 


250 


-213 


320 


- 58 


390 


-140 


460 


- 58 


530 


-155 


600 


-174 


660 


-112 


730 


-255 


800 


-231 


50 


- 47 


120 


- 15 


185 


-166 


255 


-215 


325 


- 58 


395 


- 29 


465 


- 45 


535 


-223 


605 


- 41 


665 


- 58 


735 


-122 


805 


-108 


55 


-152 


125 


- 58 


190 


-115 


260 


- 88 


330 


-134 


400 


-211 


470 


- 58 


540 


- 69 


610 


-180 


670 


-215 


740 


- 58 


810 


- 58 


60 

65 


- 25 


130 


-152 


195 


-224 


265 


- 90 


335 


- 29 


405 


- 58 


475 


-167 


545 


- 17 


615 


- 56 


675 


- 57 


745 


- 87 


815 


- 1 


- 53 


135 


- 58 


200 


-151 


270 


- 92 


340 


-199 


410 


- 44 


480 


- 58 


550 


- 76 


620 


-145 


680 


- 69 


750 


-131 


820 


- 63 


70 


-144 


140 


-215 


205 


- 29 


275 


- 94 


345 


- 58 


415 


-126 


485 


-134 


555 


- 19 


625 


-142 


685 


- 82 


755 


- 89 


825 


- 63 


75 


-161 


145 


- 58 


210 


- 29 


280 


-125 


350 


-136 


420 


-153 


490 


-175 


560 


-108 


627 


- 58 


690 


- 18 


760 


-199 


830 


- 63 
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835 


- 23 


880 


- 58 


925 


-157 


970 


-157 


1015 


-108 


1060 


- 91 


1105 


- 92 


1150 


- 81 


1195 


-138 


1240 


-226 


1285 - 69 


840 


-108 


885 


-211 


930 


-131 


975 


-163 


1020 


- 58 


1065 


-199 


1110 


-199 


1155 


- 93 


1200 


- 84 


1245 


- 58 


1290 - 58 


845 


- 58 


890 


-225 


935 


- 63 


980 


-104 


1025 


-211 


1070 


-199 


1115 


- 62 


1160 


- 58 


1205 


-129 


1250 


-227 


1295 -112 


850 


-211 


895 


-225 


940 


- 1 


985 


- 58 


1030 


-225 


1075 


-199 


1120 


-142 


1165 


-157 


1210 


- 58 


1255 


- 58 


1300 -101 


855 


-225 


900 


-157 


945 


-108 


990 


-207 


1035 


- 63 


1080 


- 43 


1125 


-124 


1170 


- 45 


1215 


-147 


1260 


-100 


1305 -198 


860 


-251 


905 


-181 


950 


- 58 


995 


- 63 


1040 


- 63 


1085 


-127 


1130 


-138 


1175 


- 58 


1220 


- 56 


1265 


- 32 


1310 - 58 


865 


-131 


910 

915 


-111 


955 


-241 


1000 


- 63 


1045 


- 19 


1090 


- 58 


1135 


- 58 


1180 


-239 


1225 


- 86 


1270 


- 58 




870 


-211 


- 58 


960 


-157 


1005 


-225 


1050 


-110 


1095 


-166 


1140 


- 85 


1185 


- 7 


1230 


-226 


1275 


-140 


TOTAL: 


875 


-110 


920 


-137 


965 


- 63 


1010 


-231 


1055 


- 58 


1100 


-109 


1145 


- 58 


1190 


- 58 


1235 


- 75 


1280 


- 58 


30239 







CUENTA DE PACO 



Programa educativo realizado por 
AndoniEtxebarria 



Este curioso programa, pensado para los más pequeños realiza una serie de operaciones aritméticas, 
debiendo el usuario completar el resto de la operación. 




i 



B— B— 
BHBÉHHBHHMHHEII 

Mmt-' • 



BHHBHHBHK! : 







Tema: Cuenta de Paco. 
(Para MSX-Extra) 



10 ' 
20 ' 
30 ' 
40 ' 
50 ' 
60 ' 

70 > 

80 ' 
90 » 

100 ' Autor: Andoni Etxebarria 

110 ' 

120 ' 

130 ' 

140 ' 

150 ' 

160 DEFUSRl=ítH41 
170 DEFUSR2««tH44 
180 ' 
190 ' 

200 POKE MFDEl.ttHCS 



_ 



210 POPE lHrDE2.t<HD2 
220 POKE ÍHFDE3.Í.H2! 
230 POKE MFDEMHF1 
240 ' 

250 ' Preparación. 
260 ' 
270 ' 

280 COLOR ,1,1 
290 SCPEEN 2,0,0 
300 OPEN "6rp:" ASI1 
310 ' 

320 ' A subrutinas. 
330 ' 
340 ' 

350 GOSUB 820 

360 IF V=0 THEN GOSUB 1640 
370 GOSUB 2270 
380 GOSUB 750 
390 GOSUB 2440 
400 ' 

410 ' Introducción letra i. 
420 ' 
430 ' 

440 GOSUB 1140 
450 K$«INKEY$ 

460 IF KMT OR K$»V THEN Y'tsGOSUB 
1140 ELSE N«0:U=54;T=79:GOSUB 1500 
470 GOSUB 2880 
480 ' 

490 ' Introducción litn d. 















500 ■ 
510 ' 

520 GOSUB 1290 
530 Kf'INKEYt 

540 IF K$="D" OF K$="d" THEN Y= 1 : 505UB 1 
290 ELSE W=1:Z=1:U=62¡T*7<>:60SUB 1500 
550 GOSUB 2970 
560 GOSUB 1360 
570 ' 

580 ' Introducción letra d. 
590 ' 



610 K$=INKEY$ 

620 IF K$»"D" OP K$»"d" THEN Y=i:G0SUB l 
360 ELSE W«1;Z«2:U*62:T«79:60SUB 1500 
630 GOSUB 1460 
640 ' 

650 ' Vuelta al menú. 
660 ' 
670 ' 

680 COLOR 6 

690 PRESET (81 1 169) i PRINTli , "PULSE PETUPN 

H 

700 PRESET (56, 155) iPRINTM, "PAPA VOLVER 
AL MENU" 

710 PRESET (81, 169) :PPINTil , "PULSE RETURN 
* 

720 PRESET(57,155):PRINTI1,"PAPA VOLVER 
AL MENU" 
730 K* S INKEY$ 




740 IF KMMRIU3) THEN Z-«:CLQSEi 50TC 2 
50 ELS£ VJ 
730 ' 

760 ' Var-.ables del :4«put3. 
Vd ■ 
790 ' 

7"0 B»At2: C«BI35 0»CI4i E*0t5i F»Et6sS«Ft7: 
H»6t0iR«Ht9 

B00 3«R/2íK»1/3;L»K/4iH»L/5jN«H/6iQ«N/7s 

piC/8:Q«p/9 

810 PET'jPN 
920 ' 

83? " Camien::, 

B40 • 

850 ' 

860 Al*»CHM(*tWMMMl 

B70 A2t*CHRt {1*00010000) 

890 A¿$<HP*(&B001 10000) 

B 5 M$«eHR$(ítWillllll) 

°00 A3««CHRt(Wt tiltil i) 

"10 Aé*<H&t(*B011Íllll) 

920 4 7 í=CHR$(!«B00110000í 

C T0 A9f*CHRS(t!B00010000) 

940 At*Alt*A2t*A3t+A4t+A5l*A6H'A7$*A8< 

°50 SP*JTEt(0)»AI 

960 ' 

070 t 

980 Bit=CHR$!iB0000000) 

oc B2f*CHRS(&B0001000) 

1000 B3$=CHFÍ'? ¡ B0001100» 

1010 B4KHRt(*BlH1110) 

1020 BSKHPKHlllllll) 

1030 B6$«CHR$(!tB1111110) 

1040 B7$«CHPlí*B0001100) 

1050 BBI=CHR<(!,B0001000) 

1060 Bi-Bli*B:t+B!t+84itB!f*9éi*B7i+B8t 

10^0 SPRITEÍ(í)«Bt 

1080 RET'JFN 

10°0 ' 

1100 ' Fin. 

1110 ' 

1120 ' 



11T0 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 



COLOR i5.4,4iKEY ONsEND 
» 

* Impresión de resultados. 



FOR 1=1 TO 300:NEXT 

IF Y*0 THEN 6*2 ELSE IF Y«] THENS-1 

COLOR S 

PRESET(41.122):PRINTI1,A 
PRESET (41 , 132) : PRINTii , B 
PRESET(41, 142) ¡PRINTti, C 
PREBETíil, 132) iPRINTil,D 
PRESET ( 4 1 , 1 62 ) i PR X NTf 1 , E 



1260 

1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 



1410 
1420 
1430 



PRESETÍ41, 172) :PRINTtl, F 
Y*0 

RETURN 

IF Y=0 THEN S=2 ELSE IF Y«l THENS-1 
COLOR S 

PRESET ( 41 , 122) : PRINTti ,6 
PRESET ( 4 1 v 1 32 > : PR I NTf 1 p H 
PRESET < 41 , 142) i PRINTti, R 
Y»0 

RETURN 

IF Y*0 THEN S*2 ELSE IF Y«l THEN3-1 
COLOR S 

PPESET(4t,i22)jPRINTIi,J 
PRESET(41,132);PRINTI1,K 
PRESET (41 , 142) : PRINT#1 , L 
PRESET (4 1 , 152) : PRINTti f « 
PRESET (41 ,162) ¡ PRINTti . N 
PRESET '41 t 172> : PRINTti , O 
Y=0 

RETURN 
COLOR 2 

PRESETÍ41, 122) :PRINT#1.P 
PRESET ( 4 1 , 132) s PRINTti , Q 

RETURN 

> 

' Flecha. 



1450 
1460 

1470 

1430 

14^0 

1500 
1510 
1520 
1530 ' 

1540 IF X=0 THEN 3=14 
1550 PUT SPRITE W.(U,T),S,W 
1560 BEEP 
1570 W\ 

1580 FOR 1=1 TO 250:NEXT 
1590 IF X»l THEN S»l 
1600 PUT SPRITE W,(U,T),S,H 
1610 X=0 

1620 FOR 1=1 TO 250:NEXT 
1630 IF 2«0 THEN RETURN 450 ELSE IF Z-l 
THEN RETURN 530 ELSE RETURN 610 
1640 ' 

1650 ' Explicación. 
1660 ' 
1670 ' 

1680 A»USR1(A) 

1690 LINE(30,30)-(243,1B0),14,B 
1700 LINE(79,40)-(182,55),10,B 
1710 LINE(64,155)-(205,165),10,B 
1720 COLOR 8 

1730 PRESET (88, 45) : PRINTti , "EXPLICACION" 
1740 PRESET(89,45)!PRINT*1, "EXPLICACION- 
1750 COLOR 4 

1760 PRESET(37,65):PRINTtl,"Prograia dis 
eñado para" 

1770 PRESET (38, 63) : PRINTti , 'Progr ama dis 
eñado para* 



1780 PRESET(40,78)sPRINTtl, "calcular las 
cuentas de" 

1790 PRE SET ( 4 1 , 78 ) : PR I NT# 1 f "calcular las 
cuentas de" 

1800 PRESET (40, 91 ) : PRINTti , "Pico. " 
1810 PRESET (41 9 91 ) i PRINTti y "Pico. " 
1B20 COLOR 13 

1830 PRESET (37, 1 1 1 ): PRINTti . "Deberá eleg 
ir una de las" 

1840 PRESET (38, 11 1) i PRINTti, "Diber á eleg 
ir una de las" 

1850 PRESET (40, 124) : PRINTti , "doi opciont 
s que presenta" 

1860 PRESETÍ41, 124) : PRINTti , "dos opcione 
s que presentí" 

1870 PRESETÍ40, 137) s PRINTti , "el menú." 
1880 PRESET(41,137)iPRINTtl,"el iinú." 
1890 PRESET (75, 157) s PRINTti , "PULSE UNA T 
ECLA" 

1900 PRESET(76, 157) -.PRINTti, "PULSE UNA T 
ECLA" 

1910 A«USR2(A) 
1920 KMINKEYI 

1930 IF K$="" THEN 1920 ELSE 1940 
1940 LINE(31,65)-(242,154),1.BF 
1950 » 
1960 ' 

1970 PRESET (37, 65) : PRINTti , "Si selección 
a la priiera" 

1980 PRESET(38,65):PRINTtl,"Si selección 
a la priiera" 

1990 PRESET(41,78)!PRINTtl, "opción, el li 
ero le pedirá" 

2000 PRE3ET(42,78) ¡PRINTti, "opción, el li 
ero le pedirá" 

2010 PRESET (41,91): PRINTti , "la cifra a c 
alcular." 

2020 PRESET ( 42 , 9 1 ) : PR I NTt 1 , " 1 a cifra a c 
alcular." 

2030 PRESET(37,lll)!PRINTtl,"A continuac 
ión, aparecerá" 

2040 PRESETÍ38, 111) iPRINTti, "A continuac 
ión, aparecerá" 

2050 PRESET (41 , 124) : PRINTti , "t»n la panta 
lia una partí" 

2060 PRESET (42, 124) : PRINTti , "an- la pinta 
lia una partí* 

2070 PRESETÍ41, 137) :PRINTtl, "de la cuent 
a." 

2080 PRESET(42, 137) : PR INTt 1 , " da li cumt 
i." 

2090 K*>INKEY* 

2100 IF K$="" THEN 2090 ELSE 2110 
2110 LINE(34,65)-(242,154),1,BF 
2120 ' 
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2130 ' 

2140 PRESET(37,65)sPRINTtl,"Para que apa 
rezcan las" 

2150 PRESET(38,65) ¡PRINTti, "Para que apa 
rezcan las" 

2160 PRESET (41 , 78) : PRINT#1 , "demás partes 
, pulse las" 

2170 PRESET(42,78):PRINTtl, "demás partes 
, pulse las" 

2180 PRESET (41 f 91 ) : PRINTft 1 v "letras indic 
adas con una" 

2190 PRESET(42,91)!PRINTI1, "letras indi: 
adas con una" 

2200 PRESET (41, 104) iPRlNTtt , "flecha. * 
2210 PRESET ( 42 , 1 §4 ) : PR I NTt 1 , "flecha." 
2220 Kf*INKEY$ 

2230 !F KM" THEN 2220 ELSE 2240 
2240 LINE(0,0)-(255,i9l) ( l,BF 
2230 CLOSEiV.l 
2260 GOTO 280 
2270 ' 

2280 ' -Menú. 
2290 ' 
2300 ' 

2310 A=USR1(A) 
2320 COLOR 8 

2330 PRESET (41,79) iPRWT#i,'Í. INTRODUCCI 
ON DE CIFRA." 

2340 PRESET (41 , 79) : PRINTti , • 1 . INTRODUCCI 
ON DE CIFRA." 

2350 PRESET(40,99):PRINTtl,"2.FINALIZAR. 
* 

2360 PRESET(41, 99) ¡PRINTti, "2.FINALIZAR. 
■ 

2370 COLOR 14 

2380 PRESET(74,138):PRINT*1,"-Eliga opci 
ún-" 

2390 PRESET(75,138):PRINTtl,"-Eliga opci 
ón-" 

2400 A=USR2(A) 

2410 Kt=INKEY* 

2420 IF K$=T THEN 2670 

2430 IF K$="2" THEN 1090 ELSE 2410 



— ■ ■ ■ — 



2440 ' 

2450 ' Escenario del cómputo. 
2460 ' 
2470 ' 

2480 SCREEN 2 
2490 A'USRHA) 

2300 LINE(26,40)-(243.100).14,B 
2510 LINE(26,110)-(245,190),14,B 
2320 LINE(71.30)-(191,16),9,B 
2530 LINE(41,77)-(49,B7),8,BF 
2540 COLOR 10 

2350 PRESET (76, 20) ¡PRINTti, "CUENTA DE PA 
CO" 

2560 PRESET(77,20) ¡PRINTti, "CUENTA DE PA 
CO" 

2570 COLOR 4 

2580 PRESET (36, 55) ¡ PRINTti , "RESULTADOS" 
2590 PRESET ( 37 1 SS ) t PR I NTt 1 9 "RESULTADOS" 
2600 COLOR 3 

2610 PRESET ( 96 . 73 ) : PR I NTt 1 , " (Multiplicad 
os)" 

2620 PRESET(97,75) :PPINT#1, " 'Multiplicad 
os)" 

2630 COLOR 1 

2640 DRAU-BH43, 79": PRINTti . 
2650 A=USR2(A) 
2660 RETURN 
2670 ' 

2680 ' Introducción cifra. 
2690 » 
2700 ' 
2710 CLS 
2720 KEY OFF 

2730 SCREEN 
2740 COLOR 3 

2750 LOCATE 6,6:PRINT" 

W Q W . 

2760 LOCATE 8, 7sPRINT"l, INTRODUCCION DEL 
DATO." 

2770 LOCATE 6,8:PRINT" 

MQM • 

2780 LOCATE 3,ll:PRINT" r 

HQW ,• 

2790 LOCATE 4, 12:PRINT"Tedee el número 
y pulse RETURN" 

2800 LOCATE 3, 13¡PRINT" •> 

WQW n 

2810 LOCATE 3, 12sPRINT" I" 
2820 LOCATE 33,12iPRINT" |' 

2830 LOCATE 10,15:PRINT" 

NON • 

2840 LOCATE 10,17:PRINT" 

m • 

2830 LOCATE 4, 16«INPUT"CIFRAi"¡A 



2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
os)" 
2980 
os)" 
2990 



IF SSN(A)»0 OR SGN(A)-i THEN 2830 
50T0 380 



Canbio letras. 



3010 
3020 



LINE(41,77)-(50,87),1,BF 
LINE(75,77)-(83.87),8,BF 
COLOR i 

DRAW"BH77 ( 79":PRINTI1."D" 
RETURN 

PRESET ( 96 f 75 ) : PR I NT 1 1 . "(Multiplicad 
PRESET(97,75):PRINT.#1, "(Multiplicad 
COLOR 5 

PRESET (96 , 73) : PRINTti , • (Divididos)" 
PRESET (97, 75) : PRINTti . "(Divididos)" 
RETURN 



TEST DE LISTADO' 



10 


- 58 


320 


- 58 


630 


- 84 


940 


-183 


20 


- 58 


330 


- 58 


640 


- 58 


°30 


-161 


30 


- 58 


340 


- 58 


650 


- 58 


960 


- 58 


40 


- 58 


350 


-210 


660 


- 58 


970 


- 58 


50 


- 58 


360 


-196 


670 


- 58 


980 


- 36 


60 


- 58 


370 


-129 


680 


-212 


990 


- 38 


70 


- 58 


380 


-139 


690 


- 48 


1000 


- 40 


80 


- 58 


390 


- 44 


700 


-101 


1010 


- 45 


90 


- 58 


400 


- 58 


710 


- 49 


1020 


- 47 


100 


- 58 


410 


- 58 720 


-102 


1030 


- 47 


110 


- 58 


420 


- 58 


730 


- 74 


1040 


- 44 


120 


- 58 


430 


- 58 


740 


-188 


1050 


- 44 


130 


- 58 


440 


- 19 


750 


- 58 


1060 


-192 


140 


- 58 


450 


- 74 


760 


- 58 


1070 


-163 


150 


- 58 


460 


-135 


770 


- 58 


1080 


-142 


160 


-194 


470 


-230 


780 


- 58 


1090 


- 38 


170 


-198 


480 


- 58 


790 


-179 


1100 


- 58 


180 


- 58 


490 


- 58 


800 


- 59 


1110 


- 38 


190 


- 58 


500 


- 58 


810 


-142 


1120 


- 38 


200 


-125 


510 


- 58 


820 


- 58 


1130 


-179 


210 


-141 


520 


-170 


830 


- 58 


1140 


- 38 


220 


-223 


530 


- 74 


840 


- 58 


1150 


- 38 


230 


-170 


540 


-170 850 


- 58 


1160 


- 58 


240 


- 5B 


550 


- 64 


860 


- 83 


1170 


- 58 


250 


- 58 560 -240 


870 


- 83 


1180 


-171 


260 


- 58 


570 


■ 58 


880 


- 87 


1190 


- 1 


270 


- 58 


580 


■ 58 


890 


- 93 


1200 


- 16 


280 


- 37 


590 ■ 


58 


900 


- 95 


1210 


-110 


290 


- 82 


600 - 


58 


910 


- 95 


1220 


-121 


300 


- 32 


610 ■ 


74 


920 


- 91 


1230 


•132 


310 


- 38 620 -241 


930 


■ 91 


1240 


-143 
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wmm 



1250 


-154 


1420 


-163 


1590 


- 18 


1760 


-142 


1930 


- 32 


2100 


-118 


2270 - 58 


2440 - 58 


2610 


- 36 


2780 


1 c ¡ 

-156 


2950 - 79 


1260 


-165 


1430 


-174 


1600 


- 37 


1770 


-143 


1940 


-181 


2110 


-181 


2280 - 58 


2450 - 58 


MI A/1 

2620 


- 37 


2790 


4 in 

-172 


2960 -142 


1270 


- 89 


1440 


- 89 


1610 


- 88 


1780 


-135 


1"50 


- 58 


2120 


- 5B 


2290 - 58 


2460 - 58 


2630 


-207 


2800 


-162 


2970 - 36 


12B0 


-142 


1450 


-142 


1620 


-107 


1790 


-136 


1960 


- 58 


2130 


- 58 


2300 - 58 


2470 - 58 


2640 


- 81 


2810 


4 r? 

-153 


2980 - 37 


1290 


- 1 


1460 


-208 


1630 


- 68 


1800 


" 2 


1970 


-195 


2140 


-248 


2310 -177 


2480 -216 


2650 


-178 


2820 


1 O 7 

-183 


TOO/1 11 f 

2990 -21 1 


1300 


- 16 


1470 


-125 


1640 


- 59 


1810 


- 3 


1980 


-196 


2150 


-249 


2320 -214 


2490 -177 


2660 


-142 


2830 


-226 


3000 -105 


1310 


-116 


1480 


-136 


1650 


- 58 


1820 


-217 


19"0 


-156 


2160 


-178 


2330 - 81 


2500 - 41 


2670 


- 58 


nni ti 

2840 


-228 


oviv -106 


1320 


-127 


14"0 


-142 


1660 


- 58 


1830 


-169 


2000 


-157 


2170 


-179 


2340 - 82 


2510 -201 


2680 


- 58 


2850 


- 86 


3020 -142 


1330 


-147 


1500 


- 58 


1670 


- 58 


1840 


-170 


2010 


-250 


2180 


- 1 


2350 -135 


2520 -191 


2690 


- 58 


2860 


-180 




1340 


- 99 


1510 


- 58 


1690 


-177 


1850 


-197 


2020 


-251 


2190 


- 2 


2360 -136 


2530 -206 


2700 


- 58 


2870 


- 20 




1350 


-142 


1520 


- 53 


1690 


-113 


1860 


-198 


2030 


-239 


n n n n 

2200 


MIA 

-240 


2370 -218 


2540 -214 


2710 


i en 

-159 


2880 


- 58 




1360 


- 1 


1530 


- 58 


1700 


-238 


1870 


- 97 


2040 


-240 


2210 


-241 


2380 -153 


2550 -154 


2720 


-183 


2890 


- 58 




1370 


- 16 


1540 


- 28 


1710 


-215 


1880 


- 98 


2050 


-192 


2220 


- 74 


2390 -154 


2560 -155 


2730 


-214 


2900 


- 58 




1380 


-119 


1550 


- 37 


1720 


-214 


18'0 


-140 


2060 


-193 


2230 


-122 


2400 -178 


2570 -210 


2740 


-211 


2910 


- 58 




13°0 


-130 


1560 


-192 


1730 


-130 


1900 


-141 


2070 


-196 


2240 


-139 


2410 - 74 


2580 - 47 


2750 


-225 


2920 


-200 




1400 


-141 


1570 


-162 


1740 


-131 


1°10 


-178 


2080 


-197 


2250 


- 69 


2420 -190 


2590 - 48 


2760 


- 95 


2930 


- 18 


TOTAL: 


1410 


-152 


1580 


-107 


1750 


-210 


1920 


- 74 


2090 


- 74 




2260 


-176 


2430 -233 2600 -211 


2770 


-227 


2940 


-207 


33834 
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TIRO CON ARCO 





- v. i 







Programa de juegos realizado por 
Juan Ignacio Rupérez 

II la 11 ¡1 l • H 

Este programa simula el lanzamiento de flechas con un arco auna diana móvil con viento lateral. El campo de tiro se 
ve desde arriba y en la parte del marcador se refleja la diana vista de frente, donde se verifican las puntuaciones. 









210 REH "ARCO 1" 

20 DATA 0,0, 0,0. 0,0, 17, 7, 16, 16,16,1,5,1 
30 CLS: KEY 0FF-.C0L0R 15, t, 1: LOCATE 6,4:P 
RINT" T I P CON A R C 0": LOCATE 6,5 

: PRINT" " 

40 LOCATE 2,7;PRINT"Pulsando si cursor e 
n cualquier di -recci ón , empieza a correr 
el marcador del ángulo, y volviendo a pul 
sarlo.se detiene. Para soltar la flecha p 
ulsar el espacio. " 

50 LOCATE 2,12:PRINT'Puedes jugar con jo 
ystick si lo prefieres. B :LOCATE 5,24:PRI 
NT'PULSA ESPACIO PARA EMPEZAR" 
60 IF STRIG(0)=-1 QP STPIGí i)=-i THEN GO 
TO 80 

70 GOTO 60 

80 CLS-.COLOR 15,12,1:SCREEN 2,2 

90 '"Definición de sprites' 

100 A$=CHR$(StH0) +CHR$ ( &H0) +CHR$ ( ÍH0) +CHP 

$ ( &H0 ) +CHRS ( *H0 KCHR$ ( StH0 ) +CHR$ ( &H0 ) +CHR 

$(M0):OPEN "GRP: " FOR QUTPUT AS II 




110 B$=CHR$(? < H3)*CHR$(!(H3)+CHR$(Í ! H3)*CHR 
$(ltH3)+CHR$(íiH3)+CHR$(iH3]*CHR$(iH3)+CHR 

120 C$=CHR$ ( ÍH3 ) *CHP$ ( EK3 ) *CHP$ ( ÍH3 ) *CHR 
$(IH3) +CHR$(?(H3) +CHR$ [ffl) +CHR* (&H3) *CHR 
H&H3) 

130 D$=CHP$ (&H3) +CHR$ (&H3) +CHR$ ( StH3) +CHP 
I (*H3) +CHRS (ltH3)+CHR$(IH3)*CHRI (&H3) +CHR 
*(&H3) 

140 E«>CHRi(&H3)4CHR$(&H3)4CHR<(ltH3HCHR 
*(íiH3)+GHR$íl[H3)*CHRt(liH3í+CHRí{&H3)*CHR 
|.(ÍH3) 

150 F$=CHP$ (&H0) +CHP$ { WFF)*CHR$(«tH0)+CH 
RKIHf ) +GHR$Í1HI ) +CHRI(ltH#) +CHRI (&H0) +CH 
R*í&H0) 

160 G$=CHP$ (&H4 ) +CHR$ ! fcHFF) ♦CHP.*(*H41 +CH 
R$ (ltH0> +CHR* («cK0) *CHR$ (&H0) *CHR$ <fcH0) *CH 
R$(iH0) :H$=CHP$ (&H8S) *CHR$ttH50)>CHPlUH 

tW+CHRfíííHf) 

170 SPRITEÍ (0) =F$+A$+G*+A$ 

180 SPRITEf ( i ) =A$+A$+B$+C$ 

190 SPRITE$(2)=Aí*A$+D*+E$¡SPRITE$(3)=H$ 

+A$*A$+A$ 

200 "Harcador" 

210 LINE'0,0)-(180,85).1,BF 

220 PRESET (10, 5) : PRINTi! , "VIENTO:" 

230 PRESETÍ 10,25) : PRINT#1 . "ANGULO: " 

240 PRESET (10, 45) ¡PRINTI 1, "DIANAS: " 

250 PRESETÍ 10,65) ¡PRINTI! . "PUNTOS: " 

260 LINE(0,175)-(40,192>,6,BF 

270 PRESET (5, 165) :PRINT#1, "TOTAL" 

280 PRESET (10, 180) ¡ PRINTI 1 , "001" 

290 LINE(56.t80)-(130,192),l,BF 

300 PRESET (58, 183) : PRINT* 1 , "MEDIA: " 

310 C=3 

320 FOR P=40 TO 5 STEP -7 

330 CIRCLE(135,40).F:,C:PAINT(135,40),C 

340 C=C+1 



350 NEXT R 

360 CIPCLE(25, 130) .23. 13:PAINT(25. 130) , 1 
3 

370 LINE(210,0)-(220,1"2),7,BF 

380 CIRCLE (20, 130) ,5, 1:PAINT(20, 130) , 1:D 

PAW"B!112, 13BC1M13, 1431133, 133Í130, 130K12, 1 

38":PAINT(15,141),1 

390 PSET(23,12B),14:PSET(23.132),14 

400 DRAWBM20, 125C1H45, 1321148, 129M23, 122 

1120,125" 

410 PAINT(23,124).1:ND=0 
420 '"Generación de una nueva diana" 
430 V«INT(RND (-TIHE) té) ! X»é-Vs ND«NM l IF 
V=0 THEN X=200 

440 N=INT(RND(-TIHE)ti00):IF W/2=INT(W/2 

) THEN W$=V ELSE W*= B *" 

450 IF W$=V THEN S=-l ELSE 5=1 

460 LINE!65.5í-(90,75),l,BP:PL l T SPRITE 3 

, (0.0) ,0 

470 PPESET(65.5):PPINT|1,W$;V:PPESET'60. 
45):PRINT»1,ND:C=1:Z=0:Q=-16:Y=0:K=0¡P=2 
:AA=0:CC=1 

480 '"Elección de ángulo" 

490 5S=ST!CK(0) ¡VV=STICKÜ) :STRÍ6(0) ON: 

STRIG(l) ON 

500 IF SSO0 OP VVO0 THEN TíHE=0*.FQR BB 
«1 T 100: NEXT BB: GOTO 8*0 
510 GOTO 490 

520 IF STPIG(0)=-1 OP STPIG(1)=-1 THEN A 
A=1:P=3 

530 '"Generación de movimiento" 

540 PUT SPRITE 1. (200,0), 1 

550 PUT SPRITE 2, (200,0+16) , 1 

560 PUT SPRITE 0, (Y+30, 130+ÍZtSn ,CC 

570 G=Q+31:H=130+'ZtS) 

580 '"Couprobación flecha-diana" 

590 IF Y+30=l?8 THEN GOTO 600 ELSE &0Tn 

620 

600 IF G>H AND H>Q THEN GOTO 610 ELSE GO 
TO 620 



610 IF TT>29 AND TTC61 THEN GOTC 680 . 
620 Q=Q+P 

630 IF AA=1 THEN W*6it>C+l:IF C/X'INT' 
C/Xl THEN 2=Z+1 

640 IF Y*30>250 AND 9)192 THEN BOTO 430 

650 IF Y*30>256 THEN CC»0 

660 GOTO 520 

670 '"Diana acertada" 

680 FOP 1=0 TO 13 

690 READ U 

700 SOUND I.'J 

710 NEXT I 

720 PESTOPE 

730 RR=H-íQHé):0B=INT(42tPR/16) 

7¿0 AN=INT í 42t ( 45^TT ) / 1 Sí 

750 PUT SPRITE 3. U32+DD,37+AN),1 

"'60 KL=P0INTC34+PP.;"*AN) 

770 IF KL=8 THEN PP=100:GOTQ 7 "0 

780 PP=10»KL 

m PRESET(60,65):PRINT#i.PP 

300 PT=PT+PP:LINE(0.!80!-<4?,:°2í.6.&F:P 

RESET/0. 180) :PPINT#l.PT 

810 LINE(105.!80 , -(130.1"2).1.BF 

820 P*ESE T '100, 183)!PRÍHT#ljlNTÍfT/NDI 

830 PUT SPRITE 1,(200 8) 1 

840 PUT SPPITE 2,(200.QM6),1 

850 PUT SPRITE 0,(Y+50.H),1 

860 Q=Q*1:H=H±1 

870 IF G>1?2 THEN FOP ij=l TO 300:NEX T ü: 
GOTO 430 
880 GOTO 830 

890 S3=STICK(0):VV=STICK(1) 

900 L INE (65, 25) - < "0 , 35) , 1 . BF : PRESET '60.2 

5) 

910 IF SSO0 OP VVO0 THEN TT=TIÜE ELSE 
GOTO "30 

920 PPINT#1.TT:G0TQ 520 

"30 PRINTtl,T!HE:60T0 890 

940 IF Y+30>250 THEN AA=0:P=2:Y=0:Z=0 

"50 IF Q>190 THEN G=-16:N Q=-16:G0T0 430 



. 
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- 


100 


- 29 


190 


-147 


280 


- 28 


370 


- 63 


460 


-134 


550 


-172 


640 


- 29 


730 




820 


-164 


910 - 5 


20 


- 75 


110 


- 33 


200 


- 58 


290 


-247 


380 


-128 


470 


- 91 


560 


-208 


650 


- 12 


740 


-184 


830 
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920 -117 


30 


- 63 


120 


- 34 


210 


-214 


300 


- 89 


390 


-184 


480 


- 58 


570 


-138 


660 


-161 


750 


- 53 


840 


-172 


930 - 11 


40 


-179 


130 


- 35 


220 


-238 


310 


- 70 


400 


- 10 


4"0 


- 24 


580 


- 58 


670 


- 58 


760 


-1B0 


850 


- 4" 


940 - 8 


50 


-101 


140 


- 36 


230 


-241 


320 


-207 


410 


-247 


500 


-115 


590 


-113 


680 


-192 


770 


-240 


860 


- 80 


950 - 27 


60 


- 50 


150 


- 34 


240 


-239 


330 


-165 


420 


- 58 


510 


-130 


600 


- 58 


690 


-220 


780 


- 50 


870 


-255 




70 


-211 


160 


- 39 


250 


- 60 


340 


-120 


430 


-252 


520 


- 91 


610 


- 66 


700 


-142 


790 


-167 


880 


-216 




30 


-138 


170 


-174 


260 


-103 


350 


-213 


440 


- 7 


530 


- 58 


620 


-210 


710 


-204 


800 


-140 


890 


-113 


TOTAL: 


90 


- 58 


180 


-167 


270 


-254 


360 


- 3 


450 


- 86 


540 


-155 


630 


-106 


720 


-140 


810 


- 40 


"00 


-141 


11129 
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Programa educativo realizado por 
Santiago Gual Martí 



Con este programa podras resolver problemas lógicos, hallando la 
prueba de la independencia. Si eres estudiante d 







r m LOGICA m 
II EOSÜB 1530 

15 ' 3AP VALORES A LAS PROPOSICIONES 
20 CLS: DEFINI A-Z 

30 INPLIT" Número de proposiciones" ;N 
40 PRINTiIlíPUrNOiero de condicionantes" 
¡W 

50 N1=2 A N:DIM Cí«,Nl) 

60 IF«*>N THEN D I «A í W*2 . N 1 í ELSE DIHAÍN.N 

1) 

70 C=N1:T=1:NV=N 
B0 FQR 1=1 TO NI 
90 A'B,I)=T 

100 I c I/C-INTÍI/OAND 1=1 THEN T=0:GOTO 
120 

110 IF I/C=INT(I/C)AND T=0 THEN T=i 
120 NEXT 

130 B=B+l:T=l:C=C/2 

140 IF EK=N THEN 80 

145 ' INTRODUCCION DE LA FRASE 

150 PRINT: PRINT: PRINT u Las proposiciones 

escríbelas en núie-ros del 1 hasta'N"." 

150 PRINT"Pon la táxiia cantidad de paré 

ntesis posibles ." 

IT? PRINT: PRINT" Negación ■ f N *■ 
180 PRINT" Conjunción = « Y *" 
1°0 PRINT" Disyunción = « U V 
200 PRINT" Condicional = * - »" 
210 PRINT" Bicondicional = « = >' 
220 PR!NT:PPINT:PRINT 
230 INPUT M 

240 E=LEN(A$) :F0R 1=1 TO E 
250 D$=D$*" "+HID$(A$,I,1) 
260 NEXT 
270 CLS:PRINTD$ 

280 E=LEN(A$) : Z=0-3: Y=l : 0=E: X=0: VU=VU+i 
285 'BUSCAR EL PARENTESIS A RESOLVER 
290 FOR 1=1 TO E 

300 IF MIDS(ft$,I, 1)=" í" THEN M 

310 IF HID$(AÍ,I,1)=")"THEN 0=I:60TO 330 

320 NEXT 

330 IF Y>ZANDVU>1 THEN PLAY"V15A": XZ=XZ+ 




sus argumentos mediante la 
luyútil. 



1:QW(XZ)=VU-1 

340 FOP I=Y+I TO 0-1 

350 IF HID$íA$, 1, 1>='Q"ANDX=1THEN NU=1 

360 IF HID$(A$,I,1)="Q"ANDX=0 THEN NU=2: 

JK=JK+1 

370 IF VAL(HID$'A$,I,1))>0 THEN620 
380 IF HID$(A$.I,1)="N"THEN 650 
390 NEXT 

395 ' RESOLUCION DEL PARENTESIS 

m IFJK=2THENJK=0:6OTQ1120ELSEJK=0 

410 IF NU>0 THEN 490 

420 FOR I=Y+1 TO 0-1 

430 IF HID$(A$,!,!)>TTHEN 760 

440 IF HID$(A$,I,1)="U"THEN 840 

450 IF HIO$(A*,I,!)s»-"THEN 920 

460 IF I1ID$(A$,I,1)="="THEN 1000 

470 NEXT 

480 GOTO 560 

490 FOR I=Y+1 TO 0-1 

500 IF MID$ÍA$,I,1)=*Y"THEN 800 

510 IF HID«(A$,I,1)='U"THEN880 

520 IFKID$(A$, I, 1)="-"ANDNU=1THEN960 

530 1FIUD*(A$,I,1)*"-"ANDNU=2THEN1080 

540 IF MD$(A$,I,1)="="THEN 1040 

550 NEXT 

560 NU=0:FOR J=Y+1 TO 

570 F$=F$+" " : NEXT 

580 J$=HID$(A$,1,Y-1)+"Q"+F$ 

590 A$=J$+MID*(A$,0*1) 

600 IF NID$(A$,1,1)="Q"THEN1440 

610 P=P+1:F*="":G0T0 280 

620 X=X+1:B(X)=VAL(MID$(A$,I,1)) 

630 IF B(XX=NV THEN GOSUB 1350 

640 J=0:GOTO 390 

650 KC=VAL(MID* (A$, 1+1,1)): IFKC=0THEN720 

660 B(X)*KC:I*I*1:60SUB 1350:1=1-1 

670 A$=M I D$ ( Ai , 1 , H ) ♦STRt (N+l ) ♦MIDI ( Aí, 

1+2) :B(X)=N+1 

680 N=N+1:F0R J=l TO NI 

690 IFA(KC,J)=1THENA(N,J)=0ELSEA(N,J)=1 

700 NEXT 

710 GOSUB 1380:GOTO 390 




720 FOR J=l TO NI 

730 IF C(VU-1,J)=1 THEN C(VU, J)=0ELSE C( 

VU,J)=1 

740 NEXT 

750 GOSUB 1410: GOTO 390 
760 FOR J=l TO NI 

770 IF A(B(1),J)=1 AND A(B(2) , J)=l THEN 

C(VU,J)*1 

780 NEXT 

790 GOSUB 1410:GOTO 470 
800 FOR J=l TO NI 

810 IF A(B(D,J)*i AND C(VU-1,J)=1 THEN 

C(VU,J)*1 

820 NEXT 

830 GOSUB 1410: GOTO 550 
840 FOR J«l TO NI 

850 IF A(B(1),J)=1 OR A(B(2),J)=1 THEN C 
(VU, J)*l 
860 NEXT 

870 GOSUB 1410:6OTO 470 
880 FOR J=l TO NI 



m w 




^k 9 i i\uuí\ni ¡i u 



890 IF A(B(1),J)=1 OR C(VU-1.J)«1 THEN C 

(VU,J)«1 

900 NEXT 

910 GOSUB 1410: GOTO 550 
°20 FOR J=l TO NI 

930 IF A(B(1),J)=1 AND A(B(2!.J)=0 THEN 
C(VU,J)=0 ELSE C(VU,J)=1 
940 NEXT 

"50 GOSUB 1410: GOTO 470 
960 FOP J=i TO NI 

970 IF A(B(1),J)=1 AND CíVU-l. J>=0 THEN 
C(vu,J)=0 ELSE C(VU,J)«1 
980 NEXT 

990 GOSUB 1410:GOTO 550 
1000 FOR J*l TO NI 

1010 IF A(B(1),J)=A(B(2).J)THEN C(VU,J)= 
1 

1020 NEXT 

1030 GOSUB 1410: GOTO 470 
1040 FOR J=l TO NI 

1050 IF A(B(1),J)=C(VU-1,J)THEN C(VU,J)= 
1 

1060 NEXT 

1070 GOSUB 1410: GOTO 550 
1080 FOR J=l TO NI 

1090 IF CíVU-l, J) =1 AND A(B(1!,J)=0 THEN 
C(VU,J)=0 ELSE C(VU,J)=1 
1100 NEXT 

1110 GOSUB 1410: GOTO 550 
1120 PT=LEN(D$)/2:F0R I*Y+1 TO 0-1 
1130 IF NIDt(At,I,l)«"VTHEN 1190 
1140 IF HID$(A$,I,1)="U"THEN 1230 
1150 IF MID*(A$,I,1)='-"THEN1270 
1160 IF MID$(A$, I, 1)="="THEN 1310 



1170 NEXT 
1180 GOTO 560 
1190 FOR J«l TO NI 

1200 IF C(QW(XZ),J)=1 AND C(VU-1,J)=1 TH 
EN C(VU,J)=1 
1210 NEXT 

1220 GOSUB 1410:GCTO 1170 
1230 FOP J*l TO NI 

1240 ir C(QW(XZ>,Ji=l OP CfVÜ-1. J>«2 THE 
N C(VU,J)=1 
1250 NEXT 

1260 GOSUB 1410:5OTO 1170 
1270 FOR W TO NI 

1280 IF C(QW(XZ).J)=1 ANDCíVU-l, J)=0 THE | 
N C(VU.J)=0 ELSE CMJ.JM 
1290 NEXT 

1300 GOSUB 1410:GOTO 117» 
1310 FOF J«i TO NI 
1320 IF C(QW(XZ),J!=C(VU-1.J)THEN C<VU,j| 
1=1 

1330 NEXT 

1340 GOSUB 1410:GQTQ 1170 
1345 ' IMPRIMIR RESULTADOS 
1350 FOR J»l TO NI 

1360 LOCATE 112-2. J+l: PRINTA (B (Xi . J) 

1370 NEXTjRETUPN 

1380 FOR J«J TO NI 

1390 LOCATE It2-2.J+1:PRINTA(N,J) 

1400 NEXTiRETURN 

1410 FOR J=l TO NI 

1420 LOCATE 1*2-2, M:PRINTC(VU. J) 

1430 NEXT: RETURN 

1440 PRINT:PRINT" APRIETA « RETURN > PAR 
A CONTINUAB"}PPINT:PPINT 



1450 KI=!NKEY*::WCHR$(13> T HEV1450 

1460 P=0:FOPI=1 TO NI 

1470 IF C(VU,P = 1 THEN P=P+1 

1480 PPINTTAB'9) C'VU, I) :NEX T 

1490 PRINTTAB'. 14) "ARGUMENTO" 

1500 PRINT: IF p<NÍ THEN 1520 

1510 PRINTTAB(!4)"TAÜT0LCG1C0":END 

1520 PRINTTAB!Í4)"NQ VALIDO" : END 

1525 ' INSTRUCCIONES 

1530 COLOR lS.líGLS 

15*0 PRINT 

1550 PRINTTAB(5)"t*t INS TC 'JCCI^ES t 
XV 

1560 P5:INT:PPINT:PPINT 
1570 prinT" Si estudia; la ciencia de 
la lógi-ca (32 de B.y.P.Filosofía) , este 
pro-grama te interesará." 
1580 PPINT" Consiste en hallar la «lid 
ez (tau-tclcgía) o invalide: de un argus 
ento dado, tediante la prueba de la inde 
- pendencia."? 

1590 PRINT" La prueva de la indepen- "ds 
ncia se tasa en averigua'" si un a r -gusen 
to dado es cierto en todos los casos pe 
sibles."; 

1600 PPINT" Si el resultad: final es .na 
columna de unes, entonces di-remos cae 
el argumento es tautológico. B ¡ 
1610 PRINT" pe^o si aparece algún ce'o, 
enton- ees el argumento no será válido." 
1620 PRINT:PPINT:PPiNT"tt apriete una te 
cía para empezar <$" 
1630 K$«INKEY$!lF KS="" T HEN 1670 
1640 COLOR l f 75CLS:PETURN 
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580 


- 6Í 


740 


-131 


900 


-131 


1060 


-131 


1220 


-137 


1370 


- 75 


1525 


- 58 


TOTAL: 


140 


- 50 


285 


- 58 


430 


-228 


590 


-105 


750 


-122 


910 


- 27 


1070 


- 27 


1230 


- 37 


1380 


- 37 


1530 


-242 


19553 

































LA GIROMAJTICA (II) 




Segunda entrega de esta vistosa serie de artículos sobre la giromántica. Imprescindible tener presente 

la primera parte del artículo. 



2.2 - Giro de un punto alrededor de un 
centro en un ángulo variable 

Vamos a introducir una variante en 
el programa n.° 1, añadiendo la línea: 
35 Z=Z+ H dejando el resto igual. ¿Qué 
sucede al procesar el programa? 

La variable z vale inicialmente pero 
después de pasar la línea 35, su valor 
será z = H y por tanto los siguientes pa- 
sos del programa girarán el punto un án- 
gulo H. Pero al procesar por segunda 
vez la línea 35, se tendrá Z=H+H= 
2 x H y por tanto el segundo giro del pun- 
to P será de un ángulo 2xH. Análoga- 
mente en el tercer paso el punto H girará 
3xH y después de M pasos será 
z = MxH. Este avance en ángulos cre- 
cientes se puede observar en la panta- 
lla, si no se borran las imágenes de cada 
punto. Así, para X=50, Y=0yZ=0.5se 
obtendrá una figura como la que se 
acompaña una vez se ha completado la 
primera vuelta. El giro acumulado des- 
pués M iteraciones valdrá: W^+0.05 x 
(1 +2 + 3 + . .. + M) = (M + 1)xMx 0.05/2. 

Para obtener el mismo resultado con 
el programa n.° 2 basta hacer en la línea 
50M = M+1 : A = M.(M+1)'Z/2 

Aquí se puede observar la diferencia 
entre los programas 1 y 2 en cuanto a la 
expresión del ángulo que interviene en 
las fórmulas; el programa 1 utiliza el án- 
gulo girado en cada iteración mientras 
que el 2 emplea el ángulo total acumula- 
do desde el inicio. 



6. 



5» 



2.3 - Giro de varios puntos alrededor 
de un mismo centro 

Como ya se ha indicado, la expresión 
del giro en coordenadas polares, se eje- 
cuta más rápidamente por el ordenador 
que con la expresión en coordenadas 
cartesianas, por lo cual en adelante usa- 
remos esta forma de notación. Sin em- 
bargo en algunos casos puede ser más 
conveniente la expresión en cartesianas 
a pesar de su mayor lentitud. 

Examinemos ahora el caso de N pun- 
tos situados alrededor de un centro. 
Para distinguirlos, lo primero que vamos 
a hacer es numerarlos consecutivamen- 
te a partir de cero para introducirlos pos- 
teriormente en una matriz de dos dimen- 
sones A(1 ,N), en la que N es el número 
de puntos menos uno. Otra matriz 
B(1 ,N) nos guardará los puntos girados. 



Definiremos cada punto, en polares por 
su módulo Rj y por su argumento o án- 
gulo con el eje OX.Aj y asignaremos: 

Rj=A(0,J) :Aj=A(1,J) 

Con lo indicado establecemos el si- 
guiente PROGRAMA N.° 3: 
10 INPUT"PUNTOS-1";N:DIMA(1,N) 
20 INPUT"ANGULO";H 
25 FORJ=OTON 
30 PRINTJ:INPUT 

A(0,J),A(1,J):NEXT 
40 FORJ=OTON 
50 X=A(0,J)*cos (A(1 ,J)):Y=A(0,J)*sin 

(A(1,J)) 

60 CLS: COLOR 10,1,1 :SCREEN 2 
70 PSET (125+X.95+Y): NEXT 

Con esto tenemos situados los N pun- 
tos en la pantalla; vamos ahora a esta- 
blecer el giro: 





t* 
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80 FORJ=OTON 
90 Z=H 
100 A(1,J)=A(1,J)+Z 
110 X=A(0,J)*cos(A(1,J)):Y=A(0,J) 

•sin (A(1,J)) 
y a continuación situemos los puntos gi- 
rados, en la pantalla: 
120 PSET(125+X,95+Y):NEXT 
130 GOTO 80 

¿Qué se observa al ordenar RUN? 
Pues que cada punto gira el ángulo Z en 
cada una de las iteraciones que provoca 
el bucle de las líneas 80-1 30. Es decir, la 
figura inicial constituida por los N puntos 
gira alrededor del centro 1 25,95. 

Puede efectuarse la prueba borrando 
cada vez la figura anterior para lo cual 
basta intercalar un CLS en la Línea 130 
antes del GOTO. 

Hagamos ahora una ligera modi- 
ficación en la línea 90 y pongamos 
90Z=Z+H. 

Esto es lo que puse por error en un 
programa, cuando pretendía hacer girar 
una figura con el procedimiento indicado 
antes, para lo cual bastaba haber pues- 
to Z=H. 

Ahora sucede algo muy diferente: en 
el bucle FOR...NEXT de las líneas 80- 
1 20, cada vez que J varía, Z toma un va- 
lor diferente. Inicialmente la variable Z 
tiene un valor nulo y por tanto en el pri- 
mer paso se tendrá Z=H. Pero para J=1 
Z=2*,Hypara J=N*,Z= (N+1)=H. Por 
lo tanto, los puntos que han sido nume- 
rados correlativamente de O a N, gira- 
rán un ángulo ( J + 1 )*H cada uno de ellos 
y por tanto diferente según el número de 
orden que tengan asignados. 

Podemos observar de una forma grá- 
fica lo que sucede si numeramos los 
puntos en la pantalla. Para ello haga- 
mos una ligera modificación en alguna 
línea del programa: 
75 OPEN "GRP: "AS # 1 
120 PSET(125+X,95+Y):PRINT#1;J: 

CLOSE:NEXT 
130 CLS:GOT0 75 



Introduzcamos ahora 3 ó 4 puntos con 
coordenadas polares 90,0 y un ángulo 
de giro 0.05. En el primer paso todos los 
puntos coinciden en la posición 90,0 
pero a medida que se van produciendo 
las iteraciones los puntos se van sepa- 
rando entre sí, hasta que el último alcan- 
za al primero y dejando continuar al pro- 
grama, llega un momento en que los 
puntos vuelven a coincidir en la posición 
inicial y en el mismo orden. Más adelan- 
te analizaremos las condiciones para 
que se produzca esta coincidencia y por 
tanto haya repetición de figura. 

El arte de la "giromática" consiste en 
encontrar combinaciones de puntos ini- 
ciales y fórmulas del ángulo de giro de 
modo que en la pantalla se consigan fi- 
guras estéticamente interesantes por no 
decir bellas. De todo esto se va a tratar a 
continuación. 

3 -Figuras base 

Llamaremos "figura base" en giromá- 
tica al conjunto de puntos iniciales, orde- 
nados consecutivamente, antes de for- 
mar el primer giro. 

La figura base puede ser cualquier 
agrupación de puntos, pero para conse- 
guir con los giros sucesivos imágenes 
estéticamente agradables, conviene 
que el conjunto de puntos tenga un cier- 
to orden. En principio se puede ensayar 
cualquier figura introduciendo las coor- 
denadas de sus puntos mediante el sis- 
tema INPUT empleado en el tercer pro- 
grama e incluso puede pensarse en un 
montaje aleatorio de la figura base. Pero 
es más práctico utilizar figuras geométri- 
cas definidas mediante fórmulas mate- 
máticas sencillas, especialmente si pue- 
den definirse mediante coordenadas 
polares. De las figuras más conocidas 
vamos a descartar la circunferencia, ya 
que el giro de sus puntos mantiene a és- 
tos siempre sobre la misma circunferen- 
cia. Como ejemplo más sencillo vamos 



a tratar primero como figura base un 
segmento rectilíneo, el cual nos servirá 
para analizar y formular la estructura ge- 
neral del programa, antes de tratar figu- 
ras más complejas. 

3.1 - Figura base con segmento 
rectilíneo 

Vamos a hacer girar N puntos situa- 
dos en un segmento rectilíneo con ori- 
gen en el centro de la pantalla (punto 
125,95) y con el eje OX una paralela al 
eje OX de la pantalla pasando por dicho 
centro. El eje OX será el origen de ángu- 
los que se medirán en el sentido de Tas 
agujas del reloj, tal como opera el orde- 
nador MSX. 

La ecuación del segmento, al que da- 
remos una longitud de 90, a fin de que 
quepa en el sentido vertical de la panta- 
lla, será la siguiente: R = 90*J/N A = O 
siendo R el módulo, A el argumento y J 
variando de O a N. El segmento o figura 
base queda así definido por N + 1 pun- 
tos equidistantes, incluyendo el origen y 
numerados consecutivamente de O a N. 

Análogamente al programa 3, vamos 
a definir una matriz de dos dimensiones 
A(1,N), que nos permitirá guardar los 
módulos y argumentos sucesivos de 
cada punto al girar. Haremos por tanto: 

A(O,J)=90*J7N: A(1,J) = 

En el programa 3 sustituiremos la lí- 
nea 30 por la expresión anterior. Aun- 
que en el programa giromatic se pres- 
cinde normalmente de representar la fi- 
gura base, mantenemos las líneas 40 a 
70 a fin de mostrar lo que sucede. Si 
mantenemos en la línea 90 Z=H vere- 
mos como los puntos del segmento van 
girando por un igual alrededor del cen- 
tro. Pero si hacemos 90 Z=Z+H y da- 
mos a H un valor pequeño (0.05 p.e.). 
observaremos como los puntos giran en 
ángulo diferente y empiezan a curvarse 
en forma de espiral, ya que al efectuarse 
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el bucle FOR...NEXT de las líneas 80- 
1 20 en el primer paso, para J = O se tie- 
ne en 90 Z=H ya que inicialmente es 
Z=0. Pero para J = 1 (segundo paso del 
bucle) se tiene Z=Z+H = H + H=2xH y 
para el paso J = NZ=(N + 1)xH. La recta 
se ha convertido en espiral. Pero de 
acuerdo con la línea 130, el programa 
no se interrumpe y empieza una nueva 
iteración del bucle FOR...NEXT, que 
vuelve a iniciarse con J=0. En el primer 
paso del segundo bucle, la línea 90 dará 
Z=(N + 1)xH + H=(N+2)xH y para 
J = N se tendrá Z=2x(N + 1)xH. La lí- 
nea continúa curvándose cada vez más 
a medida que se repiten las iteraciones, 
cambiando la apariencia de la figura. 
Para conseguir un aspecto mejor en la 
pantalla, se puede añadir una nueva lí- 
nea al programa: 

105 PSET(125-X,95-Y) que colocará 
los puntos simétricos de los calculados 



respecto al polo. 

Vamos ahora a introducir una modifi- 
cación y ampliación del programa, que 
le dará una mayor espectacularidad en 
las sucesivas versiones que iremos 
analizando: 

añadamos a la línea 10 ... :DIMB(1,N) 
hagamos 

110 B(0,J) = A(0,J)-cos(A(1 ,J)):B(1 ,J) = 

A(0,J)»sin(A(1,j)):NEXT 
120 CLS:FOR J = OTON-1 
130 LINE (125+ B(0,J),95 + B(1.J))- 

(125 + B(0,J+1),95 + B(1.J + 1)) 
140 LINE (125-B(0,J),95-B(1,J))- 

(125-B(0,J + 1),95-B(1,J + 1) 
150 NEXT 
160 GOTO 80 

La modificación introduce las coorde- 
nadas x e y en una matriz B(1,N) que 
permite después ejecutar las líneas 130 
y 1 40. En éstas, se une cada punto de la 
figura base que gira (J) con el punto si- 



guiente (J + 1). El bucle se inicia en el 
punto correspondiente a J = que se 
une con el 1 terminando en el N-1 que se 
une con el N. Mientras los puntos man- 
tienen su secuencia en los primeros gi- 
ros, se mantiene la línea continua en es- 
piral, pero cuando el punto N, que es el 
que más avanza, sobrepasa al punto 
en media circunferencia, las lineas em- 
piezan a entrecruzarse y a formar visto- 
sas figuras. 

La introducción de la segunda matriz 
B es necesaria para conservar la coor- 
denadas de los puntos y unir cada uno 
con el siguiente. 

La expresión de la linea 90 que da el 
valor del ángulo de giro para cada punto 
en cada paso, puede adoptar diversas 
formas, lo cual vamos a analizar a conti- 
nuación antes de seguir con nuevas fi- 
guras base más complejas. 

POR J.M. CLIMENT PARCET 



REGALATE Y DISFRUTA DEM LIBRO 



UN LIBRO PENSADO 
PARA T.ODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 



J'Wll.K GMKKEHO JUAN l AHI OS ',<>%/ M EZ 



giiui mil ttlocldtij dr üjfiucioo 

componet música a una. do» o ires vote» 
organizar lus propios programas de geslión.... 



LOS SECRETOS DEL 




Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scra- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación 
Tabla de colores SCREEN 1 . Rec- 
tángulos en 3-D. Juego de caracte- 
res alfabéticos en todos los modos. 
Juego Matemático. Más grande más 
pequeño. Póker. Breackout. Apoca- 
lypse Now. El robot saltarín. El ar- 
chivo en casa. 



j ! 

1 Deseo me envíen el libro Los secretos del MSX, para lo cual adjunto talón de 1 .500 ptas. a la orden de 
MANHATTAN TRANSFER, S.A. importante: No se hace contra reembolsos. 

Nombre y apellidos i 

l Calle n.° Ciudad CP 

i Este boletín me da derecho a recibir los secretos MSX en mi domicilio libre de gastos de envío o i 
! cualquier otro cargo. 

importante: indicar en el sobre MANHATTAN TRANSFER, S.A. i 
i «LOS SECRETOS DEL MSX» i 

ROC3 i Batlle, 10-12 Bajos-08023 BARCELONA 
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CALLVII 



Si algo tienen en común todos los programas es que necesitan acceder a la pantalla de un modo u otro, i 

este acceso sea lo más rápido posible es el tema de este articulo. 

ELVDP 

Como ya sabrás, los MSX usan un 
dispositivo externo con su propia 
RAM para gestionar la pantalla, 
a fin de ahorrar espacio de memoria y de 
descargar a la CPU de las tareas de im- 
presión. Ahora bien, resulta interesante 
conocer cómo funciona el procesador 
de vídeo. 

El VDP de los MSX de la primera ge- 
neración es capaz de manejar 16K de 
VRAM. Asimismo, dispone de cuatro 
modos de pantalla y de la facultad de uti- 
lizar SPRITES. Como ya he dicho, fun- 
ciona de forma independiente al proce- 
sador central, lo que conlleva que los 
datos sean mandados a través de un 
"puerto" como si de la impresora o del 
cassette se tratase. 

El VDP dispone de ocho registros de 
escritura y uno de lectura. Los primeros 
sirven, entre otras cosas, para seleccio- 
nar el tipo de pantalla, de SPRITES, el 
color, etc. Es importante remarcar que, 
por tratarse de registros de sólo escritu- 
ra, es imposible saber la información 
que contienen una vez se han mandado 
los datos, de ahí que el sistema operati- 
vo guarde una copia en la RAM de su va- 
lor actualizado (a partir de la dirección 
&HF3DF). 

Por su parte, el único registro de lectu- 
ra contiene el estado del VDP, y se lla- 
ma, precisamente, registro de estado. 
Aquí tienes un desglose de su conteni- 
do: 

Bit 7: Indica que se ha barrido comple- 
tamente la pantalla. 

Bit 6: Si está encendido, es porque 
hay más de cuatro SPRITES en la mis- 
ma línea horizontal. 

Bit 5: Se activa cuando dos SPRITES 
colisionan. 

Bits a 5: Si hay más de cuatro sprites 
en una línea -el bit 6 se pondrá a uno-, 
aquí se guardará el número del quinto 
SPRITE, es decir, el que aparecerá par- 
cialmente recortado por la regla del 
quinto SPRITE. 
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ACCESO AL VDP 

Aunque el acceso al VDP es transpa- 
rente para el programador en BASIC, es 
interesante saber cómo el sistema se 
comunica con él. 

Hay cuatro operaciones básicas: 

Leer el registro de estado. 

Escribir en uno de los ochos registros 
de escritura. 



Escribir datos en la VRAM. 
Leer datos de la VRAM. 
Para leer el registro de estado basta 
con hacer un IN A, (&H99), desde el có- 
digo máquina, o variable = INP (&H99) 
o variable = VDP (8), desde el BASIC. 
El resultado será un dato (un byte) que 
corresponderá bit a bit con lo dicho ante- 
riormente para el registro de estado. 

Escribir en uno de los registros del 
VDP es un poco más complicado. El mé- 
todo se basa en el hecho de que la RAM 
de vídeo está limitada a 16K. Ya que la 
dirección más alta de la VRAM es 2* 1 4- 
1 , los bits 1 4 y 1 5 no forman parte de la 
dirección (expresiones como "VPOKE 
60000,dato" no tienen sentido). De esta 
forma, los referidos bits quedan libres y 
sirven para indicarle al procesador de 
vídeo una de estas operaciones: 

00 lectura de la VRAM 

01 escritura en la VRAM 
10 escritura en un registro. 

Por consiguiente, la escritura en uno 
de los registros del VDP se efectúa po- 
niendo a uno el bit siete del dato. Para 
comprender mejor el procedimiento 



imagina que deseas escribir el valor 20 
en el VDP (1 ). La operación a realizar en 
la siguiente: 
OUT (&H99),20 
OUT(&H99),1 OR128 
Observa que la función OR se emplea 
pra poner el bit 7 a uno. 

La escritura en la VRAM se realiza de 
forma similar a la empleada para escribir 
en un registro. La mayor diferencia es 
que al preparar al VDP para una opera- 
ción de escritura, ya no es preciso volver 
a repetir la orden para enviar los datos 
siguientes, porque el procesador incre- 
menta automáticamente la posición. 
Para escribir un 100 en la dirección 
&H4080, habrás de proceder así: 

OUT (&H99),&H80; manda el byte 
bajo de la dirección. 

OUT (&H99),&H40 OR 64; manda el 
byte alto con el bit 6 puesto a uno. 
OUT (&H98),100 

Luego de realizar la operación ante- 
rior, el VDP incrementará la posición en 
uno (&H4081 , en el ejemplo) y será sufi- 
ciente enviar el siguiente dato sin nece- 
sidad de fijar la dirección de destino, es 
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CALLVII 



decir: OUT (&H98), nuevo dato. 

Todo lo citado para la escritura en la 
VRAM vale también para la lectura, con 
la salvedad de que no es necesario po- 
ner a uno el bit 6 del byte de mayor peso 
de la dirección, y que el dato se recoge 
con un IN (&H98). 

RUTINAS DEL BIOS PARA ACCEDER 
ALVDP 

Hay varias rutinas del BIOS dedica- 
das a intercambiar información con el 
VDP, pero voy a centrarme en las dos 
más importantes, la que transfiere datos 
de la VRAM a la RAM (&H59) y la que 
hace justamente lo contrario (&H5C). 
Aquí tenéis el listado de ambas: 



LISTADO 1 
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20 ; ESCRITURA EN LA VRAfl 
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40 


EX 


0E.HL 


50 


CALL L07DF 


60 10718: 


LO 


A, (DE) 


70 


OUT 


(M8).A 


80 


INC 


DE 


SO 


DEC 


8C 


100 


LO 


A,C 


110 


0R 


B 


120 


JR 


NZ.L0748 


130 


RET 




140 ; 






1S0 ; 






160 L07DF: 


LO 
DI 


A,L 


180 


OUT 


(M9),A 


190 


LO 


A,H 


200 


AND 




210 


0R 


M0 


220 


OUT 


(f»99),A 


230 


El 




240 


RET 





Observa que lo primero que hacen es- 
tas rutinas es preparar el VDP para una 
operación de lectura y de escritura, res- 
pectivamente (L07DFy L07EC). Las ru- 
tinas que realizan esta preparación tam- 
bién pueden ser llamadas de forma in- 
dependiente con CALL &H50 y CALL 
&H53. 

Si conoces el código del Z80 descifra- 
rás rápidamente el cometido de cada 

zar un pequeño comentario, referido 
sólo a la rutina de escritura. 
Esta rutina mueve un bloque de la 



RAM de la CPU hasta la VRAM, toman- 
do como origen la dirección apuntada 
por HL, el destino en DE y la longitud to- 
tal en BC. 

La línea 50 hace una llamada a la ruti- 
na que prepara la escritura. 

La línea 60 toma el primer dato y la 70 
lo manda a través del puerto &H98. 

Por su parte, las líneas 80 a 120 sir- 
ven como contador, decrementar.do BC 
hasta que éste vale cero, momento en el 
que se ha mandado el último dato. 

LA VELOCIDAD 



Pasemos ahora a realizar un estudio 
de tiempos de la rutina del BIOS encar- 
gada de escribir en la VRAM. El bucle 
principal va desde las líneas 60 hasta 
las 1 20 y se repetirá tantas veces como 
valga BC. Aquí tienes los ciclos de reloj 
de cada instrucción: 

LD A, (DE); 7 ciclos 
OUT (&H98),A; 11 ciclos 
INC DE; 6 cíelos 
DEC BC; 6 ciclos 
LD A,C; 4 ciclos 
OR B; 4 ciclos 
JRNZ; 12 ciclos 

El total de ciclos requerido es de 50. 
Puesto que la frecuencia del reloj es de 
3.58MHz, el tiempo total empleado por 
el bucle es de 50/3.58 x 10 "-6. En 
otras palabras: es necesario esperar 
este tiempo para cada dato que se man- 
da a la VRAM. 

Quizá pienses que 14 microsegundos 
es un tiempo muy pequeño. Pero, en 
realidad, es un tiempo bastante consi- 
derable. Ten presente que para realizar 
un "SCROLL" vertical pixel a pixel es 
necesario mandar a la VRAM 1 2288 da- 
tos, si se toma en consideración la zona 
del color. En este supuesto, sólo escribir 
los datos en la VRAM consumiría 0.1 7s, 
que sumados al tiempo de proceso ne- 



cesario para el "SCROLL", lo harían to- 
talmente inviable. Y es que en informáti- 
ca una décima de segundo es una eter- 
nidad. Sólo tienes que imaginar un jue- 
go en el que, únicamente para actualizar 
la pantalla, fuera necesario emplear me- 
dio segundo. El resultado sería insufri- 
ble. 

ACCESO RAPIDO AL VDP 

Ya sabes la velocidad de la rutina del 
BIOS encargada de escribir datos en la 
VRAM. Sin embargo, en aplicaciones 
donde el tiempo de proceso sea crítico, 
es perfectamente posible prescindir de 
ella y emplear una rutina "hecha a 
mano". Aquí tienes el listado: 



m 



10 






20 ; LECTURA DE LA VRAH 


30 






40 


CALL L07EC 


50 


EX 


(SP).HL 


60 


EX 


(SP).HL 


70 L0714! 


IN 


A,(ft98) 


80 


LD 


(DE), A 


90 


INC 


DE 


100 


DEC 


BC 


110 


• LO 


M 


120 


OR 


B 


130 


JR 


NZ,L0714 


140 


RET 




150 ; 






iso ; 






170 L07EC: 


LD 


A,L 


180 


DI 





190 OUT (H99),A 



■39 







— 



200 


LD 


A,H 




210 


ANO 


U3F 




220 
230 


OUT 


<*99),A 













Nota que las primeras líneas de la ru- 
tina anterior se comportan de forma pa- 
recida a la del sistema, preparando el 
VDP para una operación de escritura. 
Sin embargo, aquí el bucle contador y la 
salida de datos se realizan en un sólo 
paso, usando la instrucción del Z80 
OTIR (OUT con incremento y repeti- 
ción). La instrucción en cuestión acepta 
la dirección de inicio de los datos en HL, 
el puesto de destino en el registro C y el 
total en B. Como ves, el tiempo emplea- 
do en el bucle se limita al de ÓTIR: 1 6 ci- 
clos. Puesto que la rutina del BIOS em- 
pleaba 50, se consigue que los datos 
sean enviados tres veces más rápido. 

Tal vez te preguntes por qué los pro- 
gramadores de Micro Soft no incluyeron 
algo parecido en la ROM. La respuesta 
es sencilla. 

El sistema MSX funciona atendiendo 
una interrupción cada 1/50s. Cuando se 
produce una de éstas, se completa la 
instrucción que se esté ejecutando en 
ese momento y se almacena en la pila la 
dirección actual. Acto seguido, se hace 
un salto al punto de entrada del interrup 
(&H38). La rutina de interrupciones 
comprueba el teclado, actualiza las es- 
calas musicales, incrementa la variable 
TIME, comprueba si hay colisión entre 
dos SPRITES, las teclas de función, la 
activación de ON INTERVAL, etc. 

Puesto que todo esto ha de realizarse 
con bastante precisión, se ha evitado el 
uso de instrucciones muy largas que 
perturbarían considerablemente la du- 
ración de los intervalos. Hay que tener 
en cuenta que el control no pasa a la ru- 
tina de interrupciones hasta que se com- 
pleta la instrucción en curso, y OTIR se 
ejecuta mientras el contador (B) no es 
cero, sin posibilidad de parar en el mo- 
mento de la interrupción y de reempren- 
der el trabajo en el mismo punto. 

CONCLUSIONES 



talmente reubicable. 

Por otra parte, puedes, si lo deseas, 
adaptar la rutina para que realice la ac- 
ción inversa: traer datos de la VRAM a la 
RAM de la CPU. Unicamente deberás 
eliminar la línea 100 (OR &H40) y susti- 
tuir el OTIR de las líneas 200 y 250 por 
INIR, teniendo en cuenta que hay que 
perder unos microsegundos desde el 
momento que se ordena la lectura hasta 
que se lee el primer dato. El sistema em- 
plea dos EX (SP),HL consecutivos, aun- 
que con unos cuantos NOPs también se 
pierde el tiempo magníficamente. 

En fin, aquí tiene el cargador de da- 
tas, como alternativa al ensamblador: 



LISTADO 3 



10 




20 ; ESCRITURA EN LA VRAM 


30 




40 


EX 0E.HL 


50 


LO A,L 


60 


01 


70 


OUT (ft99).A 


80 


LO A , H 


90 


ANO MF 


100 


OR M0 


110 OUT (M9),A 
120 U DE.HL 


130 


LD D,B 


140 


LO A,C 


150 


LO C.M8 


160 


INC 


170 ALTO: 


OEC 


180 


JR Z, RESTO 


190 


LO B,0 


200 


OTIR 


210 


JR ALTO 


220 RESTO! 


0R A 


230 


RET Z 


240 


LO B.A 


250 


OTIR 




. , , , CON GARANTIA 





A pesar de lo expuesto anteriormente, 
resulta superfluo emplear las rutinas del 
BIOS si se puede prescindir de la varia- 
ble TIME, del sonido y de las demás fun- 
ciones actualizadas por el interrup. En la 
práctica, la mayoría de aplicaciones re- 
sultan críticas en cuanto a tiempo de ac- 
ceso al VDP, mientras que suele des- 
preciarse todo lo demás. Así pues, te 
aconsejo que emplees la rutina de acce- 
so rápido en detrimento de la del BIOS. 

Se ha previsto, además, que los pará- 
metros de entrada sean igual a los de la 
rutina del sistema, así como que sea to- 



LISTADO 4 



10 FQRX=DIR TO OIR + 32: REA0 V$ 
20 POKEX, VAL( "íiH'+Vi) : S=S+PEEK( X) 
30 NEXT 

40 IFS0451 1 ! THENBEEP: CLS: PRINT-HAY UN 
ERROR" 

50 DATAEB,7Q,F3, 03,99, 7C,E6,3F,F6,40,03 
,99,EB,50,79,0E,«98,14,15,28,06,06,00,ED 
,B3,18,F7,B7,C8 I 47,ED,B3,C9 



POR SOLO 800 PTAS. 



DETECTOR 
DIGITAL DE 
FALLOS DE RED 

Termina con los 
problemas de finido 

Mas de una vez hemos maldecido a 
la Compañía Eléctrica de turno 
por un corte inesperado en el 
fluido eléctrico, que ha echado al traste el 
trabajo de un montón de horas. 

Desgraciadamente, muchas veces esta 
avena se produce con una frecuencia muy 
alta, no tratándose en realidad de un pro- 
blema de corte de fluido por la Compañía 
sino de orden interno, aleatorio e inidenti- 
ficable, puesto que conocida es la malevo- 
lencia de las averías: Procuran no produ- 
cirse en presencia de los técnicos. 
Para solucionar esto, Medios de Infor- 




mática Auxiliar comercializa el DLFD-1 
(detector de defectos de la red), que sim- 
plemente se conecta a un enchufe y super- 
visa de forma continua la calidad de la ten- 
sión, informando en su Display digital de 
la presencia y duración del microcorte, la 
duración del microcorte más largo desde 
la ultima puesta a O, la existencia de pará- 



sitos o interferencias con una pendiente 
de tensión superior a 50 V/microsegundo, 
si la tensión de la red ha bajado a menos de 
187 V durante más de 50 mseg... 

Tomen nota: Lo comercializa Medios de 
Informática Auxiliar, Roger de Flor 202, 
08013 Barcelona, y su precio es de 13-.500 
ptas. 



CONCURSO 
NACIONAL 
INFORMATICO DE 
PROGRAMACION 
ENBASIC-MSX: 




ASOCIACION CULTURAL 
DEPORTIVA TELEFONICA 

Para empleados e hijos de la Compa- 
ñía Telefónica Nacional de España. 
El Club Informático de la Asocia- 
ción Cultural Deportiva Telefónica orga- 
niza un concurso de programación en BA- 
SIC-M8X en el que pueden participar to- 
dos los empleados e hijos de empleados de 
la C.T.N.E. 

El concurso pretende promover el uso 
de la informática entre sus empleados. 
Los concursantes serán divididos en dos 
grupos: 

GRUPO A -Menores de 14 años 
GRUPO B: -Mayores de 14 años 
El tema de los programas es Ubre, aun- 
que existen dos premios especiales para 
los programas de GESTION TELEFONICA 
y de ENTRETENIMIENTO, en los grupos B 
y A respectivamente. 

El plazo de entrega de los programas fi- 
naliza el 15 de septiembre de 1987. 



KX-14CP1 

El monitor de alta 
resolnción de 
SONY 

Este impresionante aparato, capaz 
de convertir en realidad las exi- 
gencias del más perfeccionista de 
los usuarios de micro, incorpora el siste- 




Feria de 
Barcelona 



LA FERIA DE BARCELO 
RECIBE EL PREMIO 
ACTUALIDAD ELECTRONICA 1986 

, „ m^ntfl rtfti Aflctor de la electrónica es; 



A Feria de Barcelona, por sus salones 
Sonimag, Expotrónica e Informat, 
le ha sido concedido el premio Ac- 
tualidad Electrónica, como institución o 
entidad externa al sector que mejor ha 
contribuido al desarrollo de la electrónica 
española durante el año 1986. 

La concesión del premio se hizo publica 
en Madrid con ocasión de la Noche da la 
Electrónica (que viene celebrándose des- 
de 1979). El jurado estaba formado por 
numerosos presidentes de empresas del 
sector, y por un redactor del periódico 
"Expansión". 

Tal y como quedó reflejado en ei 
jurado, el citado premio es el reco: 



miento del sector de la electrónica espa- 
ñola a la labor de difusión llevada a cabo 
por Feria de Barcelona. 

Total apoyo a la gestión del director 
de Informat 

Frente a la reciente denuncia formulada 
por una empresa del sector contra el di- 
rector del certamen Informat por supues- 
tas limitaciones a la libre competencia en 
su última reunión, el Comité Organizador 
de dicho certamen acordó apoyar incondi- 
ite la gesüón del Sr. Rodríguez 




ma «Black Trinitron» desarrollado por 
SONY proporcionando la más alta resolu- 
ción gráfica: 640 x 200 puntos y 2.000 ca- 
racteres (80 x 25 líneas). El KX-14 CP1 
está especialmente indicado para aquellas 
aplicaciones donde resulte imprescindi- 
ble una gran nitidez de imagen y una alta 
resolución gráfica, y recomendado sin 
ningún género de dudas para aquellos* 
usuarios de primera o segunda genera- 
ción que dispongan de dinero para mejo- 
rar su configuración. Su precio. 



T-GRAPH 

Software para plotter 
de Toshiba 

El programa T-GRAPH, pensado es- 
pecialmente para los plotters o 
trazadores, permite crear gráficos 
circulares, poligonales y de columnas, con 
la limpieza y precisión que puede dar este 



periférico que tiene un eco relativamente 
escaso entre los usuarios de MSX. 

Este interesante software permite efec- 
tuar una clasificación previa de los datos a 
representar, y plasmar la información ne- 
cesaria en forma de gráficos. 

Es una excelente utilidad, puesto que 
permite visualizar los gráficos previa- 
mente sobre pantalla en el formato en que 
los imprimirá el plotter, lo que constituye 
una interesante ventaja para sus usua- 
rios. 



HARD COPY 1 



SERIE ORO DE MANHATTAN 



Con Hard Copy iniciamos lo que hemos dado en llamar 
Serie Oro. A partir del próximo mes ya estará disponi- 
ble el primero de los cassettes de aplicación. Con Hard 
Copy, desarrollado totalmente en Código Máquina, el 
usuario podrá realizar copias en tres formatos diferen- 
tes, hacer simulación en blanco y negro de los colores 
por degradación de grises, copiar sprites, grabar o 
cargar pantallas en cinta, copiar en inverso, redefinir 
tonos de colores, etc. Además dispondrá de menús 
por ventanas y controlar el Hard mediante cursores o 
joysticks. Y lo que es más importante es que es com- 
patible con cualquier tipo de impresora. 





POR CLAUDIA TELLO HELBLING 



HARD COPY 



Manhattan Transfer, S A. 
Formato: cassette 64K 

teclado o joystick 

Carga:] 




HARD 
GOPY 

POR JOAQUIN LOPEZ 

Menús por ventanas - tres 
formatos de copias - simulación 
en blanco y negro - copia 
sprites - redefine colores - 
compatible con cualquier 
impresora matricial. 



CON GARANTIA 

/WWW^ TRANSFER S 



Por fin tenemos un programa de uti- 
lidad para sacar gráficos y todo 
aquello que veamos en la pantalla de 
nuestro ordenador MSX. "Hard Copy" ha 
sido diseñado teniendo en cuenta todas las 
posibilidades de las máquinas MSX y las 
impresoras del mismo estándar, pero 
también de las que no lo son, pero son co- 
patlbles a través de la salida Centrónic, 
como las del tipo EPSON. 

Hard Copy es un programa de muy fácil 
empleo, pues para hacerlo sólo tienes que 
cargarlo en el ordenador y una vez com- 
pletada la carga se lo ejecuta pulsando la 
tecla SELECT. En ese momento te aparece 
en pantalla el Menú y todas sus posibilida- 
des, pero nunca lo pierdes de vista mien- 
tras lo estás utilizando, pues cuando acce- 
des a uno de los puntos te aparece una 
ventana con el siguiente submenú. 

A través de H.C. puedes modificar la in- 
tensidad de los colores y también las tra- 



mas, de modo que el gráfico obtenido a tra- 
vés de tu impresora tenga los matices que 
tú quieras darle. No obstante te advierto 
que su autor ha analizado muy bien todo y 
que el balance de colores y tramas está en 
su justo medio. 

Algo que te puede interesar saber es que 
Hard Copy también copia los sprites que 
aparecen en pantalla, cosa que no suelen 
hacerlo programas caseros de este tipo. 

Entre las múltiples posibilidades del 
programa cuenta con la de poder obtener 
hasta tres formatos de copias, simulación 
en blanco y negro, copia inversa, tabula- 
ción de margen izquierdo, grabación y 
carga de pantalla y grabación y carga de 
formato. Asimismo, puedes manejarlo 
mediante teclado o joystick. 



Conclusión: Un programa muy útil para los 
que quieren sacar copias gráficas de todo lo 
que aparece en pantalla, ya sean juegos, gráfi- 
cos estadísticos o dibujos. 
Precio aproximado: 2.500 ptas. 



AEROBIO 




6STIR6 LOS 0€D0S DÉ LOS PIGS 
, V REPITA 



Este programa está pensado para to- 
dos aquellos que quieren mante- 
nerse en forma. Aerobio consta de 
dos diskettes para MSX-2 que contienen 9 
secciones. Estas corresponden a otros 
tantos ejercicios aptos para mantener o 
alcanzar un buen estado físico, comenzan- 
do por los ejercicios de calentamiento 
hasta aquellos que incidén directamente a 
las distintas partes del cuerpo, como bra- 
zos, cintura, estómago, piernas, caderas y 
nalgas. 

La virtud de este programa de Idealogic 
es que ha conseguido un excelente nivel 
interactivo que permite a la persona que 
siga el curso, hacerlo seguir sus propias 
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necesidades viendo en todo momento la 
ejecución correcta de los movimientos. 
Vamos, como si tuviese una Eva Nasarre 
particular y disponible en todo momento 
a darle clases. Al mismo tiempo, todos los 
ejercicios son acompañados de una músi- 
ca que, aunque reiterativa, tiene la fun- 
ción de alcanzar el ritmo necesario. Un 
ritmo que se mide mediante un reloj que se 
halla a la izquierda de la pantalla. 

Esto significa que los tiempos parciales 
tienen que ser respetados, pero el que de- 
termina la intensidad y el modo de reali- 
zar los ejercicios es el propio usuario. 
Para ello hay 18 rutinas de ejercicios ge- 
nerales y tres entrenamientos completos 
que incluyen nueve secciones. Los entre- 
namientos están divididos según las con- 
diciones de cada usuario, de modo que te- 
nemos para principiante, intermedio y 
avanzado, a los que se puede acceder me- 
diante un menú muy sencillo de manipu- 
lar. 

Otra cosa que tengo que destacar es la 
notable calidad gráfica del programa en 
general y de la figura humana y sus movi- 
mientos en particular. En este sentido, es- 
tamos ante uno de los trabajos de mayor 
calidad desarrollados para el sistema 
MSX. 

Aerobio viene acompañado también de 
un detallado manual que complementa el 
programa y sirve de referencia y explica- 
ción a determinado tipo de ejercicios. 



Grafismo: Muy bueno 
Sonido: Apropiado 

Conclusión: Recomendado para los que 
quieren mantenerse en forma, por su calidad 
y por capacidad interactiva. Incluye 2 disket- 
tes. 

Precio aproximado: 5.950 ptas. 



LA ISLA DEL 
TESORO 



Idealogic/Philips 
Formato: diskette MSX-2 




Uno de los libros más bellos de la li- 
teratura universal ha sido adapta- 
do por Idealogic para el formato 
MSX de la segunda generación. Al respec- 
to no diré en qué consiste el juego, pues 
quien más quien menos ya ha leído el libro 
y el que no lo haya hecho ya puede ir co- 
rriendo a la librería si quiere gozar del Jue- 
go mucho más. Con esto quiero decir que 
los autores de la adaptación, Norbert Mar- 
tínez, Eloi Serray Ricard Gavaldá han res- 
petado la trama de la novela, con lo que 
para salir tan airoso como Jim Hawkin 
tienes que seguir sus mismos pasos. 

En este sensacional Juego interactivo la 
aventura y el sentido práctico de los per- 
sonajes se impone. "La isla del tesoro", de 
Robert L. Stevenson, que también escribió 
"El extraño caso del Dr. Jeckyll y Mr. 
Hyde", presenta a personajes inolvidables 
como Long John Silver, el cazurro pirata 
de la pata de palo, Billy Bones, Capitán 
Smollet, Doctor Liveseys, Hacendado Tre- 
lawney, Israel Hands y una serie de lobos 
de mar, tan ambiciosos como traicioneros 
que también buscan el tesoro enterrado 
en algún lugar de una isla, cuyo mapa tie- 
ne que localizar. 

Para llevar adelante tu aventura parti- 
cular cuentas con una serie de elementos. 
Ellos son las palabras, verbos para actuar 
y objetos para conseguir determinadas co- 
sas. En este sentido el juego responde a los 
principios de los juegos interactivos, sólo 
que en este caso, la memoria del ordena- 
dor y la versatilidad que dan los dos dis- 
kettes de que consta, permiten una mayor 
actividad y una gama de matices en las ór- 
denes que el MSX tiene que interpretar. Si 
en determinado momento no sabes muy 
bien qué hacer puedes pedir ayuda, pero 
ésta te vendrá solicitando un inventario 
de palabras. Este inventarlo estará ceñido 
a la escena, de modo que tú que eres lo sufi- 
cientemente perspicaz podrás emplear la 
más adecuada. 




Conclusiones: Excelente juego configurado 
para los MSX2, cuya mayor virtud radica en 
la ínteractividad y en el rápido acceso que 
permite el diskette. Asimismo, destaco las nu- 
merosas variaciones a las que puede optar el 
protagonista (jugador) sin desvirtuar el de- 
sarrollo argumental de la novela de Steven- 
son. Muy bien presentado. 
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DEVS EX MACHINA 



Mind Games 

Formato: cassette 64K/diskette 
Mandos: teclado o joystíck 







Este es uno de los programas más 
sorprendentes dentro del sistema 
MSX. En principio no se trata de un 
simple juego y en determinados aspectos 
no lo es. Junto al cassette con el progra- 
ma, con una sección en la cara A y otra en 
la B, hay otro de audio con la banda sonora 
de Deus ex machina (la máquina de dios) 
escrita y dirigida por Mel Croucher e in- 
terpretada por Ian Dury. La función de la 



música es la de ponerte en clima para la 
historia más alucinante que vas a vivir. 
Pues, se trata nada más y nada menos que 
el de asumir el papel de un super ordena- 
dor ambicioso y rebelde, que no se conten- 
ta con las funciones que le ha dado el hom- 
bre y quiere crear otro de acuerdo con sus 
propios criterios. Pero claro eso de parti- 
da es imposible, pero... 

Pero cierto día un ratón se cuela en los 
circuitos del ordenador y automáticamen- 
te entra en funcionamiento su mecanis- 
mo de defensa y mediante gases lo mata. 
Es en este momento en que el ordenador 
se da cuenta de que a partir del ADN del 
animal puede iniciar todo un proceso vital 
y obtener el objetivo de crear un hombre. 
En la primera fase no debes dejar que las 
hélices dobles que forjan la vida se deten- 
gan ni tampoco que los scanners policia- 
les toquen tu cursor verde. Una vez supe- 
rada esta etapa entramos en lo que es el 
banco de memoria al que tienes que ali- 
mentar con las vainas de memoria que 
caen. Tienes que tener en cuenta que a me- 
dida que vayas avanzando y cometiendo 
pequeños errores también disminuye el 
porcentaje de identidad. Las dos fases si- 
guientes determinarán muy especialmen- 
te la vitalidad e inteligencia futuras. 

El paso que sigue es el de la incubadora y 
en ella ya aparece una forma de vida a la 
que hay que transmitirle fuerza y cuidar 
de que ningurie, parte protectora deje de 
latir. En la fase de ombligo la misión es 
controlar el nacimiento, luchando contra 
los policías, las sondas oculares y otros 
elementos cuya cantidad responderá a los 
errores cometidos anteriormente. Ya na- 
cido pasas a la interrogación policial de la 
que te defiendes mediante un escudo. A 
toda costa tienes que evitar que te corrom- 
pan pues en el paso siguiente debes hacer- 
te invulnerable a la seducción, pues ella es 
insidiosa. Al perder la inocencia otra vez 
las fuerzas malhechoras mostrarán su 
verdadero rostro y en la medida que su- 
cumbas a ellas te formarás o malforma- 
rás. En la cara B, tenemos la fase del solda- 
do, de la justicia y la vuelta a la infancia o 
mejor dicho a la puerilidad. 

Como puedes ver, es algo más que un 
juego y desde un punto de vista filosófico 
entramos no sólo en la concepción bioló- 
gica, sino también en aspectos inéditos de 
la procreación de un ser humano. 




Graíismo: Bueno 

Sonido: Excelente 

Conclusión: Un programa de notable cali- 
dad y sorprendente concepción, 
sar acercar 
equis manera. 
Precio aproximado: (c ) 2.600 ptas. + IVA 
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Una de las diferencias fundamentales entre los MSX de primera y segunda generación es la gestión, creación y 
tratamiento de los gráficos. Comenzaremos hablando de la Función "Paleta de Colores", novedad introducida en la 

segunda generación. 




Todos conocemos la instrucción 
color del BASIC MSX. Sirve para 
determinar el color de un punto o 
carácter, del fondo y de los bordes de la 
pantalla. 

También sabemos que los MSX2 per- 
miten trajabar hasta con 512 colores, 
pero no son seleccionabas de modo di- 
recto (no se puede seleccionar el color 
512). 

La única modalidad de pantalla que 
permite trabajar con códigos de color 
superiores al 15^es^SCREEN 8, en la 

y 255 como códigos de color, pero esto 
tan sólo ocurre en este modo gráfico a 
título excepcional. 

LAPALETA DE COLORES 



En los ordenadores de la segunda ge- 
neración, las modalidades de pantalla 



gráfica que permiten utilizar los 1 6 colo- 
res (códigos a 15) son: SCREEN 0, 
SCREEN 1, SCREEN 2, SCREEN 3, 
SCREEN 4, SCREEN 5 y SCREEN 7. 

Estos dieciséis colores son los que se 
pueden utilizar de modo directo en el 
momento de iniciar el BASIC, pero no se 
trata en absoluto de la totalidad disponi- 
ble para la segunda generación. Estos 
dieciséis colores pueden utilizarse para 
crear un máximo de 512 colores a la 
completa elección del usuario. ¿Cómo 
hacerlo? 

Si tuviéramos que nombrar uno a uno 
a estos 512 posibles colores agotaría- 
mos pronto nuestra imaginación, por lo 
tanto se nombran mencionando la canti- 
dad de rojo, verde y azul que se combi- 
nan para obtener el color determinado; 
por ejemplo: 

ROJO 3, VERDE 6, AZUL 5 
Es decir, la regla que se sigue para 
crear nuevos colores es similar al modo 



en que un pintor mezcla los colores en 
su paleta para obtener un nuevo matiz. 
De ahí el nombre de PALETA DE CO- 
LORES. 

MANEJO DE LA PALETA DE 
COLORES 

Cuando hemos descrito la creación 
de un nuevo color mediante la paleta, 
nos hemos referido solamente a tres co- 
lores: rojo, verde, y azul. Esto es así por- 
que se trata de los colores fundamenta- 
les a partir de los cuales se generan los 
otros. 

Estos tres colores fundamentales tie- 
nen ocho niveles de brillo diferentes (de 
a 7). 

Lógicamente, al existir tres colores 
fundamentales con 8 niveles de brillo 
para cada color, puede obtenerse un to- 
tal de 512 combinaciones diferentes 
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8x8x8=512), equivalente cada una de 
ellas a un nuevo color. 

Con los niveles de brillo de estos tres 
colores fundamentales pueden incluso 
definirse el blanco y el negro. Para defi- 
nir el blanco debe establecerse el brillo 
de los colores en el nivel máximo (7), 
mientras que para definir el negro debe- 
mos situar los niveles de brillo de rojo, 
verde y azul a 0. 

A partir de aquí, podemos deducir que 
las tonalidades de grises se producirán 
siempre que los valores de brillo de los 
colores fundamentales sean los mis- 
mos. (Si el gris no es otra cosa que la 
mezcla de blanco y negro, y tanto el 
blanco como el negro los obtenemos co- 
locando los niveles de brillo a sus valo- 
res máximo y mínimo respectivamente, 
todos los valores intermedios nos darán 
la gama de grises, correspondiendo los 
más oscuros a los valores menores). 
Tabla 1. 



rojo 


verde 


azul 


color 











negro 


1 


1 


1 




2 


2 


2 


gris oscuro 


3 


3 


3 




4 


4 


4 




5 


5 


5 


gris claro 


6 


6 


6 




7 


7 


7 


blanco 



Siempre que el brillo de uno de los 
tres colores fundamentales sea mayor 
que el de los otros dos se convertirá en 
el color predominante. La tabla 2 ilustra 
este punto. 



rojo 


verde 


azul 


. color 


4 


3 


3 


gris con un ligero 








tinte rojo 


5 


2 


2 


un color parecido 








al rojo 


5 








rojo (levemente 








oscuro 


7 








rojo (rojo puro, 








el color más 








•brillante) 


2 








rojo casi negro 



ESPECIFICACION DE LA. PALETA 

Una vez visto esto, pasaremos ahora 
al manejo práctico de la paleta de colo- 
res. Para ello, utilizaremos la sentencia 
COLOR, pero no en el modo en que es- 
tamos acostumbrados a hacerlo. La sin- 
taxis de la instrucción COLOR en su fun- 
ción de paleta de colores es la siguiente: 

COLOR = (código de color, brillo rojo, 
brillo verde, brillo azul). 

Como puede deducirse de la sintaxis 
de la instrucción, el primer parámetro al 
lado derecho del paréntesis correspon- 



de a un código de color comprendido en- 
tre y 1 5 (los dieciséis colores que ma- 
nejamos habitualmente) y los restantes 
al matiz que deseemos obtener. De to- 
dos modos, hemos de tener en cuenta 
que, aunque puedan asignarse matices 
al color 0, por tratarse del color transpa- 
rente constituye un caso especial y por 
lo tanto sólo tendremos en cuenta los 
colores 1 a 1 5. 

Si deseamos asignar al color amarillo 
un brillo 2 de rojo, un brillo 5 de verde y 
un brillo 3 de azul, lo haríamos del si- 
guiente modo: 

COLOR = (11, 2, 5, 3) 

Por lo tanto, podemos enunciar que la 
sentencia COLOR puede utilizarse para 
especificar los niveles de brillo del rojo, 
verde y azul en valores comprendidos 
entre y 7 y asignar estos valores a un 
código de color especificado entre y 
1 5. 

En SCREEN 6 también es posible uti- 
lizar la función de paleta de colores, 
pero limitada a tan sólo 4 colores (de a 
tres) los colores de SCREEN 6 se mues- 
tran en la tabla 3. 



En este caso utilizaremos un solo nú- 
mero para indicar el color que desea- 
mos utilizar. Como este número está 
comprendido entre y 255 puede ser 
codificado en un solo byte, con lo que es 
posible utilizarlo directamente en el co- 
mando COLOR. 

Si deseamos averiguar la composi- 
ción de un color en SCREEN 8 debemos 
proceder de la manera siguiente: 

Código de color = 32 x (brillo de 
verde) + 4 x (brillo de rojo) + (brillo 
de azul) 

Es decir, en cierto modo obramos de 
manera inversa a como veníamos pro- 
cediendo. Si deseamos obtener un color 
determinado tenemos que efectuar el 
cálculo previo de los matices de la pale- 
ta e indicárselo al ordenador mediante 
un sólo código numérico. Por ejemplo. 
Si deseamos obtener un color que tenga 
una composición de 2 de brillo de verde, 
de 3 de brillo de rojo y de 1 de brillo de 
azul, su código lo obtendremos de la si- 
guiente manera: 

32x2 + 4x3+1=77 



código 


color 





transparente 


1 


negro 


2 


verde 


3 


verde brillante 



Como hemos mencionado en un prin- 
cipio, SCREEN 8 constituye la excep- 
ción en cuanto a la utilización de los co- 
lores, puesto que en este modo gráfico 
pueden seleccionarse directamente 256 
colores. 

En SCREEN 8 el rojo y el verde tienen 
8 niveles de brillo cada uno de ellos (de 
a 7, como hemos visto) mientras que 
el azul tan sólo posee 4 comprendidos 
entre y 3. De ahí que pueda dispo- 
nerse de 256 colores, puesto que 
8x8x4=256, lo que determina los códi- 
gos de color a 255. 



Con lo cual, el código de color desea- 
do será el 77. 

Si se desea devolver las especifica- 
ciones de los colores a sus valores por 
omisión (siempre que hayan sido modifi- 
cadas por la función de paleta de colo- 
res) durante la ejecución de un progra- 
ma, existe una manera sencilla de ha- 
cerlo, utilizando también la instrucción 
COLOR en la manera siguiente: 

COLOR =NEW 




DE COLORES 



En las pantallas de gráficos SCREEN 
2 y SCREEN 4, cada bloque de 8 puntos 
tan sólo puede tener asignados dos co- 
lores, siendo uno de ellos el de fondo. 

En caso de que para uno de estos blo- 
ques de puntos (siempre tomados en 
sentido horizontal) se especificara más 
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LISTADO 1 


LISTADO 3 


10 SCREEN 5 


10 T=2:DO=10:t1=5¿l:N= í ll2 


M C0L0R=(1,7,7,7) 


20 YT=(2!-5 MOD N)/fcZT=(2l! HQD N)/2 


3* FOF' C= 2 TO 9 


30 COLOR 15, M: SOPEEN 5 


«• COLOR=(C,0,0,C-2) 


40 FOR U-í TO T!]lE-lNT(Tlt1E/100)ll00:K=RNDlll:NEXT 


5* NEXT C 


50 FOR YD=H+YT TO 255-11 STEP N 


60 COLOR ,1, 1:CLS 


60 FOR 2D=Ht2T TO 211-M STEP N 


70 FOR CC=2 TO 9 


70 D=0 


80 R= I00-CCI10 


60 F0RQ=M TO STEP-T 


90 CIRCLE (125, 100), R, CC 


90 LINE(YD-Q,ZD-Q)-STEP(QI2,QI2),Dt1,BF 


Ifl PAINT (125,95) ,CC 


100 ÜMD+1) HOO DO 


110 NEXT CC 


110 NEXT Q 


120 60TO 120 


120 NEXT 11) 


LISTADOS 


130 NEXT YD 

140 S=F;HD (1)15*2: H=RND (1)15+2: C=RND ( i ) $5*2 


10 SCREEN 5 


150 FOR 0=1 10 DO 


20 FOR A=? TO 5TEF -1 


160 K=0/00:S(0)=SJK:H(Q)=HíK:C(Q)=CíK 


30 t!NE(l,AI2¿)-(At3:,:i.A.&F 


! "0 NEXT Q 


40 PAINT (A, A) ,A,A 


190 FOR L= TO 20 


Zi NEXT A 


190 FOR 0=1 TO DO 


60 T=(M) ttOD 8 


200 COLOR = (K*l,S(Q),H(Q!,C(Q)) 


70 FOR L=l TO B 


210 K=(K*1) MOD DO 


80 C0L0R=(L T T -í) 


220 NEXT Q 


92 T=(T+1> MCD 3 


230 K=(M1) MOD DO 


100 NEXT L 


240 NEXT L 


110 60T0 20 


250 GOTO 140 



de un color, el último especificado se 
convertiría automáticamente en el color 
válido. 

Si por ejemplo, ejecutáramos el si- 
guiente programa: 

10 SCREEN 2 

20 LINE(9,50H14,50),15 

30 LINE(1 2,40H12,60),1 



40 GOTO 40 

Obtendríamos el gráfico de la figura. 
La línea horizontal que va de X9 a X14 
se dibuja en el bloque horizontal de 8 
puntos que se extiende de X8 a X1 5. La 
línea perpendicular a la anterior que se 
genera en X12 y que va de Y40 a Y60 



corta al bloque horizontal de 8 puntos 
anteriormente descrito, añadiendo -co- 
mo se ve- un color diferente al mismo 
bloque de 8 puntos tomados en sentido 
horizontal. Por lo tanto, como hemos di- 
cho, lo que sucede en este caso es que 
se toma (para la totalidad del bloque ho- 
rizontal afectado) como válido el último 
color especificado. 

¿Qué sucede pues? Algo muy curioso 
aunque en la línea 20 del programa se 
haya especificado el blanco (color 15) 
para la línea horizontal visualizaremos 
ésta como negra, puesto que el color 1 
(negro) al ser el último color especifica- 
do, se convierte automáticamente en el 
color asignado para el bloque horizon- 
tal. 

Al hecho de que un color especificado 
en una sentencia color se convierta en 
un color distinto al deseado se le deno- 
mina contaminación de color. 

La manera de solucionarlo es tener en 
cuenta la asignación de colores en estos 
dos modos de pantalla (SCREEN 2 y 4) 
para evitar este curioso fenómeno (que 
por otro lado es posible que sugiera inte- 
resantes efectos a los conocedores del 
secreto). En el ejemplo que hemos plan- 
teado, una manera de solucionar el pro- 
blema sería sustituir la línea 20 por: 

LINE(8,50H15,50),15 

Con lo que la I ínea horizontal pasará a 
llenar completamente el bloque de 8 
puntos comprendido entreX8 y X1 5, y el 
color especificado (blanco) permanece- 
rá como color válido. 

En los modos de dibujo siguientes 
(SCREEN 5 a 8) este problema no suce- 
de puesto que permiten el acceso punto 
a punto a la pantalla (bit mapped) con lo 
cual es posible asignar colores diferen- 
tes a cada punto de la pantalla sin nin- 
gún peligro de contaminación. 



Nombre y apellidos 



SUSCRIBETE HOY MISMO SI 



QUIERES ESTIREN VANGUARDIA 



La primera revista de HSX de España en ta domicilio cada 
mes. Por el precio de DIEZ NUMEROS recibirás DOCE. 

Además ta condición de sascriptor te da derecho 
a descuentos y ofertas especiales en otos productos. 



Calle 

Ciudad 

Provincia 



Deseo suscribirme a la revista 
STJPERJTJEG08 EXTRA M8X 
a partir del número 



N.° 



... Tel. 



FORMA DE PAGO: Mediante talón ban- 

carlo a nombre de: 

MANHATTAN TRANSFER, 8J^ 
OI. Roca i Batlle, 10-18 
08083 Barcelona 



r importante: para «vitar 
da loa números 
Uéla exactamente al nuevo 
distritos postales. Gracia.. 



asía ' 



España por correo normal 
rreo normal 
i por avión 
América por avión 



Ptas. 8.880,- 
Ptas. 8.600,- 
Ptas. 3.850,- 
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3.° GRAN 



PROGRAMA 



CONCURSO 



DEL AÑO 




CREA Y ENVIANOS TV PROGRAMA 
HAY PREMIOS PARA TI Y PARA LOS QUE 
TE VOTEN. CADA MES PUBLICAREMOS 
MAS DE UN GANADOR QUE OPTARA 
UNA FABULOSA UNIDAD DE DISCO 



BASES 



1 - Podrán participar todos nuestros lec- 

tores cualquiera sea su edad, con uno 
o mas programas escritos en BASIC 
MSX o código Máquina. 

2 - Los programas se clasificarán en tres 

categorías: 

A — Educativos 

B — Gestión 

C — Entretenimientos 

3 - Los programas, sin excepción, debe- 

rán ser remitidos grabados en casset- 
te virgen, debidamente protegida den- 
tro de su estuche plástico en el que se 
insertará el cupón-etiqueta que apa- 
rece en esta misma página, debida- 
mente rellenado. 



CORTAR O FOTOCOPIAS. 

I 



4 - No entrarán en concurso aquellos 

programas plagiados o ya publicados 
en otras publicaciones nacionales o 
extranjeras. 

5 - Junto a los programas se incluirán 

en hoja aparte las instrucciones co- 
rrespondientes, detalle de las varia- 
bles, ampliaciones o mejoras posibles 
y todos aquellos comentarios que el 
autor considere de interés. 

6 - Todos los programas han de estar es- 

tructurados de modo claro, separando 
con REM los distintos apartados del 
m is m o. 

PREMIOS 

7 - MSX EXTRA otorgará los siguientes 
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TITULO 



CATEGORIA 
PARA . K 

INSTRUCCION DE CARGA 

AUTOR: 
EDAD: 

GALLE: 



N. 



CIUDAD 

N.° DE RECEPCION 



DP TEL.: 



L 







premios: 
AL PROGRAMA MSX EXTRA DEL 
AÑO 

Una Unidad de disco 
valorada en más de 80.000 ptas. 

8 - Los programas seleccionados por 

nuestro Departamento de Programa- 
ción y publicados en cada número de 
nuestra revista recibirán los siguien- 
tes premios en metálico: 

Programa Educativo 10.000 pts. 

Programa de Gestión 10.000 pts. 

Programa de Entretenimiento 

6.000 pts. 

9 - MSX EXTRA se reserva el derecho de 

publicar fuera de concurso aquellos 
programas de reducidas dimensiones 
que sean de interés, premiando a sus 
autores. 

FALLO Y JURADO 

10 - Nuestro Departamento de Programa- 

ción analizará todos los programas 
recibidos y hará la primera selección, 
de la que saldrán los programas que 
publiquemos en cada número de MSX 
EXTRA 

1 1 - Los programas recibidos no se devol- 

verán, salvo que el autor lo requiera 
expresamente. 

12 - La elección del PROGRAMA MSX EX- 

TRA DEL AÑO se hará por votación de 
nuestros lectores a través de un bole- 
tín que se publicará en el mes de octu- 
bre de 1987. 

13 - El plazo de entrega de los programas 

finaliza el 18 de noviembre de 1987. 

14 - El fallo se dará a conocer en el núme- 

ro del mes de enero de 1988, entre- 
gándose los premios el mismo mes. 



REMITIR A: 
CONCURSO MSX 
EXTRA 

RocaiBatUe, 10-12 
bajos 

08023 Barcelona 
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TRUCOS DEL 
PROGRAMADOR 




POKE-PLAY: 
Infinitas vidas 
para NIGHT- 
FLIGHT 



Francisco Javier Paz, de Madrid, nos co- 
munica que ha localizado los POKES para 
conseguir infinitas vidas en el Juego 
NIGHT-FLIGHT. En concreto, el listado 
adjunto os da 25B vidas para poder termi- 
nar el Juego. Francisco nos advierte que 
este cargador funciona en el programa 
original; pero puede que no lo haga en pro- 
gramas pirateados. 

Para conseguir las infinitas vidas en 
este Juego no tenéis mas que seguir paso a 
paso las siguientes instrucciones: 

1. - Cargar el programa original con 
BLOAD "CAS: " es decir, sin el "JET. 

2. - Cuando el ordenador marque Ok te- 
clear el listado. 



10 REM CARGADOR POKE-PLAY 
20 FOR A= 60000 TO 60008 
30 READ Q: POKEA, Q: NEXTA 
40 DATA &H3E, &HFF, &H32, &HAO, 
&HC3, ÓTHCD, STHOO, GTHC2, &HC9 
60 DEF USR=60000A=USR (O) 

3.- HacedRUNy... 

Aquellos que deseen grabar el cargador 
de inflattM vidas no tienen más que inser- 
tar la siguiente línea: 

46 BSAVE "CARGA1 • 60000, 60008, 
60000 

Para cargar el Juego con infinitas vidas, 
en este caso, el proceso seria el siguiente. 

1.- Cargar el programa original con 
BLOAD "CAS:". 



2 - Colocar la cinta en la que hemos gra- 
bado el cargador de infinitas vidas y hacer 
BLOAD "CAS:"JR. 

Agradecemos a Francisco su colabora- 
ción y esperamos seguir recibiendo, de él y 
de todos nuestros lectores, los descubri- 
mientos que hagáis en este campo. 



CLAVE DE 
PROGRAMAS Y 
LISTADO DE 
SEGURIDAD: 



Juan A Valero Ariza nos envía una pe- 
queña rutina que, insertada al inicio de 
nuestros programas puede evitar que los 
utilicen aquellos que no deseamos que lo 
hagan. Para ello, el programa, nada más 
comenzar nos pedirá una palabra clave. 
Sólo si la escribimos correctamente el 
programa continuará y podremos traba- 
Jar con él. 

8i intentamos hacer CTRL + STOP el 
programa se borrará automáticamente de 
la memoria. 



6 PRINT "CLAVE:" 

1 STOP ON: ON STOP QOSUB 70 

20X$=INPUT$ (12): Y$="SÜPER 

JUEGOS" 
30 ON STOP QOSUB 70 
40 IFX$ OYt THEN PRINT "Clave 

incorrecta.. ": GOTO 6 
46 PRINT "Puede corítlnuar" 
60... 

60 ... Programa 
70 NEW 



SPRITESCOMOEL 
CURSOR: 

Para conseguir un SPRITE con la mis- 
ma forma que el cursor de los SCREENs y 
1 , no hay más que teclear el siguiente pro- 
grama: 

10SCREEN2 

20F0RX=1 T0 8 

30 S$=S$+ CHR$(2B5 ) 

40NEXTX 

50... 

60... 

PUT SPRITE... 

POKES PARA 
JUEGOS: ¿Es 
totalmente legal? 

El pokear juegos de ordenador es una 
actividad totalmente legal. Al comprar un 
Juego Estamos adquiriendo, en realidad, 
los derechos de uso del programa. Por tan- 
to, podemos utilizar el programa para los 
fines que deseemos, siempre que no perju- 
diquemos los derechos de autor. 

Es, por esta razón, perfectamente legal 
el pokear nuestros juegos. De la misma 
manera es perfectamente legal el desen- 
samblar los juegos para "ver cómo están 
hechos", siempre que el programa lo per- 
mita y no realicemos copias ni en todo ni 
en parte del programa desensamblado. De 
este modo podemos beneficiarnos de múl- 
tiples maneras del software que adquiri- 
mos sin interferir en absoluto con los de- 
rechos de autor. 

Creemos haber aclarado las dudas al 
respecto que nos habían formulado algu- 
nos lectores. 
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g^PSDÓS LOS DISTRIBUIDORES DE NUESTROS PRODUCTOS 



^rvy^ , 

'€cHÍacfó^.^^'r}bu'K^ó en España por: 
Mariano Cubi. 4 Entio. Tel. 218 34 00 - 08006 Barcelona 



